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ABSTRACT 


This thesis demonstrates that the one-dimensional charring abla- 
tion program, STAB II, can be modified to model the thermal response of 
an intumescent ablator which is exposed to a transient, low heat flux 
environment. The inputted conductivity values of the intumescent are 
the primary means of adjusting the program to account for the surface 
expansion experienced by intumescent ablators. Testing was performed 
on several important input parameters to determine their ability to 
affect the model's predictions. The results of these tests are included 
and the frequency factor and activation energy of the ablator were deter- 
mined to be very significant in affecting the model. The computer model 
was adjusted by altering key input parameters until the model was able to 
predict the thermal response of one specific intumescent, Firex 2373. 

In performing the model adjustments, the computer predictions were com- 
pared to experimental data. Finally, a discussion is included concerning 
the naval applications of intumescent coatings which are used in insula- 
ting areas of ships from the heat generated by shipboard fires and 
launched missiles. 
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PREFACE 


This thesis is the result of an investigation conducted at The 
Charles Stark Draper Laboratory, Inc. by my colleagues, LCDR James M. 
Leary, Lt. Joseph P. Marques, and myself. The primary focus of our re- 
research was to learn the uses and properties of ablative materials with 
the ultimate objective of recommending alternate ablative materials to 
be used in insulating an inertial measurement unit (IMU) from a transient, 
low heat flux environment. Our work was initiated by the possibility of 
placing the IMU in a new thermal operating environment. We began by 
studying several ablative materials and then procuring those for testing 


which promised to be the most effective in protecting the IMU. 


To reinforce the testing phase, I chose to model the ablation 
process through a one-dimensional computer program. It was hoped that 
the computer results could be directly compared to the test results. 

My contribution would be adjusting the computer program to more accurately 
model the materials in question. Finally, the computer program could 
serve aS a design tool in determining the ablative effectiveness of 

any new ablative materials by merely inputting simple thermophysical 
properties of the material. As my work progressed, it became clear that 
time would permit the adjustment of the computer model for only one 
material. Since the material being presently used is Firex 2373, and 
Since early test results indicated that Firex was the best material for 
our application, I decided to concentrate on modeling this material with 
the computer program. In order to better understand the results of this 


thesis, I recommend reading the theses of my colleagues. 
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CHAPTER 1 


INTRODUCTION 


i as Ablation 
1.1.1 General 


Ablation is a complex phenomena involving a material's ability to 
adsorb tremendous amounts of incident heat while sacrificing its surface 
mass. As an ablative material is exposed to heat, the heat flow ini- 
tially penetrates at a low rate because of the low thermal conductivity 
of the ablator. This causes a rapid temperature rise on the surface with 
a subsequent phase change and thermal degradation of the material into 
pyrolysis gases and porous carbon char. During the phase change of the 
virgin plastic composite into lower molecular constituents and char, an 
enormous amount of heat is absorbed. Thus, the process is insulative to 
the remaining substrates. In addition to the heat absorbed in creating 
the chemical decomposition of the material, the pyrolysis gases them- 
selves absorb incident heat as they percolate through the surface. To 
restate the ablation phenomenon another way is to explain that ablation 
is the thermal decomposition of high polymers into low-molecular weight 


(1) 


gaseous products and a porous char. 


Ablative materials are a product of man's exploration of space. 
Although these materials are still widely used in reentry applications, 
they are beginning to find use in less severe thermal environments. 
There are many different types of ablative materials ranging from the 
Silica, subliming-reradiative tiles used on the space shuttle to the 


intumescent ablators used in fire-retardant paints. Although each type 
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of ablator generally dissipates incident heat through chemical decomposi- 
tion, the mechanism in which each type performs their protective roles 


are quite different. 


The most common type of ablator is the charring ablator. A physi- 
cal model of a charring ablator is seen in Figure 1.1. Charring ablators 
have been used frequently as heat shield materials on space vehicles 
where the large amount of heat they can adsorb through their chemical 
degradation makes them ideally suited for the high heat loads of reentry. 
The pyrolysis gases generated by the chemical decomposition in the reac- 
tion zone also absorb incident heat as they percolate towards the sur- 
face. The char formed at the surface serves to insulate the substrate 
from incoming radiation as well as to reradiate a significant amount of 
heat back out of the material. Charring ablators appear to be most ef- 
fective in situations where the integrated heat flux is over 1000 Btu/ 
oe The charring ablator is particularly noteworthy to this thesis 
because it is a one-dimensional charring ablation computer program which 


is used to model an intumescent ablator. 


FULLY CHARRED REGION 


* REACTION ZONE 





VIRGIN MATERIAL 


Figure 1.1. Physical mode of a charring ablative. 
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1.1.2 Intumescent Ablator 


An intumescent ablator is quite similar to a char forming ablator 
except that as the ablator begins to degrade, it expands or swells thus 
increasing its thickness and drastically reducing its effective conduc-- 
tivity. So in addition to a reaction zone, an intumescent ablator has a 
zone of material which has swelled called the intumescent zone as seen in 
Figure 1.2. Firex 2373 is an intumescent ablator and Figure 1.3a and b 


show the swelling Firex 2373 experiences when it is exposed to heat and 


FULLY CHARRED 
REGION 


INTUMESCED 
REGION 


DECOMPOSITION 
ZONE 


VIRGIN 
MATERIAL 





Figure 1.2. Physical model of an intumescent ablator. 


1s 


(a) 





AFTER BURN (b) 
Figure 1.3. PinexsZ372e 
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undergoes degradation. As mentioned, the effective conductivity of the 
intumesced material decreases Significantly and thus, the intumesced re- 
gion forms an excellent insulation for the material below it. This 
drastic conductivity change is the primary mechanism employed by an in- 
tumescent ablator in protecting the substrate from heat. Figure 1.4 
shows the manufacturer's conductivity model for the intumescent ablator, 


Flexfram. The manufacturer is Fiber Materials, Inc. 


3.80 


3.60 


3.40 


3.20 


3.00 


2.80 


THERMAL CONDUCTIVITY (Btu-in/h-ft2-° F) 


2.60 





100 150 200 250 300 
TEMPERATURE (°F) 


Figure 1.4. Manufacturer's thermal conductivity model for Flexfram. 


Although an intumescent ablator forms a char layer, the char 
formed is significantly less than the char formed on a charring ablator. 
The char on an intumescent ablator has very little reradiative capability 
and merely serves to cut off the oxygen supply to the substrates. Intu- 
mescent ablators are best suited for applications in low to moderate heat 
flux environments. Intumescents are typically used when the integrated 


heat flux is less than 1000 ened a as was the case encountered in our 


dt 


research group's application. For more information on charring and 
intumescent ablators see the work of my colleague, LCDR James Leary, 
whose thesis, Reference (2), gives a detailed description of all types 


of ablative materials. 


LL. lage rirex 2373 


The following table of properties for Firex 2373 is included for 
reference purposes. Note these values have been supplied by the manufac- 


turer, Pfizer Ine: 
Table 1.1. Thermophysical properties for Firex 2373. 


k 372 3500 10° Btu/s-ft-°F 


‘e O247 Beuy lbeok 


fe) 7 (7 O lb/ft? 


O 2.036 10° feos 


2 Selection of the Computer Program 


Unfortunately a time restraint prevented the extensive study of 
all the available ablation programs. Nevertheless, a small survey was 
conducted on several of the existing programs and a selection was made. 
The following ablation programs were readily available through the liter- 


ature and considered for use in modeling Firex 2373: 


fel) CHAP (Charring Ablation Computer Code) - Aerotherm Corp., 
3, 
NASA/Langley ‘ 2 
(2) WOTA (Working Tool Ablation) - Lockheed /Htmee inlet ae 
(3) ABLATIN1, ABLATIN2 - Lsu/Nasa ‘©? 
, (7a? 
(4) STABII (Standard Ablation Program II) - NASA/Houston 
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The Lockheed/Huntsville program was not seriously considered be- 
cause this program is not intended to be a separate entity but a subpro- 
gram in a larger program. The preliminary documentation of the Aerotherm 
program indicated that too many unknown material properties were needed 
as inputs so it was dropped from consideration. This author really liked 
the LSU program because of its detail in the chemical degradation of the 
ablative material, but this same degree of detail made the program too 
complicated to be easily adapted to model Firex. This program was really 


written from the viewpoint of a chemical engineer. 


This left the NASA/Houston program, STAB II, for which excellent 
documentation was available. The program incorporated all the major 
ablative pal culations included in the other programs but its author, 

Dr. Curry, strove to make the program simple and flexible. It seemed 
ideal for our applications. A call to Dr. Curry and receipt of the 
user's wasyeucrll 82 further confirmed that STAB II could meet our research 
needs. STAB II was thus chosen to model Firex 2373. Dr. Curry's initial 
encouragement in using his program to model an intumescent ablator was 
certainly another major reason for selecting his program. There are many 
other ablation programs in use throughout the country. In fact, 

Dr. Curry indicated that his office maintained several other ablative 
programs which are more sophisticated than STAB II but that in his exper- 
lence the extra sophistication did not really make the programs more 


accurate in predicting the thermal response of a charring ablator. 


13 The Experiment 


The experimental work of Lt. Marques would serve two purposes. 
First, the results of his work would provide a ranking of all candidate 
materials tested in order of their ablative effectiveness. Secondly, and 
most importantly for this thesis, Lt. Marques's testing on Firex 2373 
would provide the thermal response data of Firex to be used in the 


computer matching of the STAB II program. 


1, 


The testing performed to support this thesis consisted of exposing 
the l-inch diameter circular face of a 2-inch slug of Firex to a constant 
heat flux of 10 Btu/Eu es for a period of 200 seconds. A holder was 
designed to ensure the slug only experienced one-dimensional heat flow 
and the slug was instrumented with thermocouples at the following dis- 
tance from the exposed surface: 0.0625, 0.125, 0.25, and 1.0 inch. See 
Figure 1.5 for a picture of a standard slug. During each run, continuous 
thermocouple temperatures were recorded until each thermocouple peaked in 
temperature. The slugs were burned for 200 seconds because, in the ori- 
ginal problem formulation at The Charles Stark Draper Laboratory, a burn 
of 200 seconds was anticipated in a future design. In matching the ex- 
perimental results with the computer model, the decision was made to 
match the results at the 0.25-inch thermocouple because the thickness of 


the Firex currently used on the IMU is approximately 0.20 inch. 


One of the problems encountered by Lt. Marques in preparing the 
slugs was accurately placing all the thermocouples at their prescribed 
depth and later each slug was x-rayed to ensure the 0.25-inch thermo- 
couple was, in fact, at 0.25 inch from the surface. As will be seen inn 
the next chapter, the computer program allows for an exact placement of a 


thermocouple anywhere within the ablative material. 


da "Effective" Conductivity 


The major objective of this thesis was to use a proven charring 
ablation program, STAB II, to model the thermal response of an intumes- 
cent ablator. The particular intumescent to be modeled would be, as 
previously mentioned, Firex 2373. The success of using a charring abla- 
tion program to model Firex would depend primarily on the ability to 
correctly model the conductivity of Firex over the temperature range it 
experiences in ablation. Because the STAB II program will only account 
for surface recession as experienced in charring ablators and not for 


Surface expansion or material swelling as experienced by intumescent 
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Pagure lao. "Standard slug. 


ablators, the conductivity model had to be adjusted to allow for the 
swelling effect. Thus, the conductivity values finally selected to 


represent the material are really "effective" conductivity values. 


Za 


CHAPTER 2 


STANDARD ABLATION PROGRAM 


Ph Description of STAB II 


The STAB II or Standard Ablation program has been evolving over 
the years since its original inception in 1965 by Dr. Donald M. Curry. 
The original program as described in Reference (7) has remained largely 
unchanged. In comparing the current modified version of the program as 
described in Reference (8) with Reference (7), one quickly discovers 
that most of the changes to the original program have been of an esoteric 
nature. An easier input format has been incorporated, more complete 
tabular output is available, and several complex plotting routines have 
been added; but still the basic framework for the ablative calculations 


are just as they were in the 1965 version. 


There have been, however, a few innovations incorporated into the 
Original program which were made to include state-of-the-art understand- 
ing of the ablative process. Perhaps the most significant of the new 
innovations, is the use of an Arrhenius equation to model the generation 
of the pyrolysis gases which are produced as the material ablates. The 
Significance of the Arrhenius equation will be discussed later in this 
enapeer. 

STAB II, originally written for the Apollo space program, is still 
an actively used model at nasa. ‘t° The very fact that Dr. Curry copes 
gram has stood the test of time is particularly noteworthy. This author 


considers himself extremely fortunate to have had the program available 
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for his thesis work and also to have had the opportunity to speak with 


Dr. Curry on a regular basis during the course of this work. 


Quite simply, STAB II is an analytical model for predicting the 
transient response of a one-dimensional, charring ablation thermal pro- 
tection system. This program was originally designed for protection 
systems subject to hyperthermal environments. But as proved by this 
thesis, the generalities incorporated into the program by Dr. Curry have 
made the model highly suitable for predicting thermal responses in heat 
flux regimes significantly lower than those encountered during atmos- 


pheric reentry. 


The object of Dr. Curry's efforts was to write a digital computer 


program to analyze a charring ablation protection system which would have 


“ 
the following general Serene eo 

Oh Stability of the equations for all applications. 

G2) Machine running time short enough to make use of the pro- 


gram economically feasible (a minimum of turnaround time 


per problem). 
C3) A minimum input per problem. 


(4) A wide variety of boundary conditions for application to 
both trajectory data and ground or flight test data 


analysis. 


STAB II was originally written in FORTRAN IV by Dr. Curry and then 
TRW, Inc. adapted it to FORTRAN V, which is an enhanced version of FOR- 
TRAN IV on the UNIVAC 1108 computer. As part of the preparation for this 
thesis, the author has adapted the program to the newest FORTRAN, FOR- 
TRAN 77 or VS FORTRAN. Fortunately, the changes from FORTRAN V to 


VS FORTRAN proved to be relatively minor in nature. 


The program considers one ablating material and up to 12 different 
backup materials which can be separated with or without air gaps. Pure 


conduction or radiation and/or convection between backup materials is 


25 


allowed. The ablation material may be divided into a maximum of 50 nodes 
and each of these nodes may be further subdivided into 20 subnodes to 
calculate the pyrolysis gas generation. The only requirement is that the 
product of the number of nodes and the number of subnodes must not be 
greater than 500. Each backup material may be subdivided into a maximum 
of 10 nodes. The thermal properties of the ablative materials are input 
in tabular form and they can be temperature-dependent. The ablation 
material is also dependent upon its state, that is, fully charred, or 


Dantlally cuarred. 


Several options are available for the surface boundary condition. 
These options which greatly enhance the versatility of the program 


are: se 


(1) Cold-wall convective and radiative heat flux tables as a 
function of time. These components are specified sepa- 
rately, since mass transfer at the surface blocks part of 
the convective heating but, in general, has no effect on 
the radiative heating. In the User's Manual this is 


called the heating rate driver option. 


(2) Surface temperature as a function of time. In the User's 


Manual this is called the thermocouple driver option. 


3) Surface recession as a function of temperature or time. 
Surface recession as a function of temperature and pressure 


is also available. 


Heat loss to the interior environment from the last node of the 


seen 8 
backup structure can be specified by two ee ocias | 
(1) Conduction into the node and radiation and/or convection 
loss to the interior environment. 
(2) Conduction into the node and adiabatic wall. 


An implicit solution is used in the numerical formulation of the 


equations describing the response of a charring ablator in STAB II. It 
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is well known that numerical solutions of partial differential equations 
are subject to several different types of Sauces. The first of these 
errors is the truncation error, due to the use of a finite subdivision. 
This error may be reduced by simply choosing a smaller subdivision, Ax. 
The exact values are approached more and more closely as Ax decreases. 
The second kind of error is the numerical, or round off error. It is the 


way in which this numerical error grows or decays with time that deter- 


mines the stability of the difference equations. 


In his original paper, Reference (7), Dr. Curry includes the 
following example to demonstrate the differences between an explicit or 
an implicit finite difference formulation. Consider a nonablating homo- 
geneous solid. The one-dimensional Fourier conduction equation, neglect- 


ing any heat generation terms, is 
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The finite difference form of Eq. (2-1) written in the conventional for- 


; — ek 
ward time step or explicit form for the 1 node is 
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where the prime superscript denotes the values at the end of the time 


step or 


Oia =. 0 (2=3) 


For explicit conduction solutions, the following stability cri- 


terion has been Beeapinehea oo 
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which places an upper limit on the time step, A, for a fixed truncation 
error. This criterion can require a prohibitive amount of machine 


Ca) 


time. 


Liebmann, in Reference (12), advocated a solution of the equation 
which does not require this stability criterion. The finite difference 
equations are written in a backward time step form which affords an im- 


Plicit, solution. 


The implicit (backward time step) difference form of Eq. (2-1) for 


2th 
the 1 node is 


GoORnes ae. ae ST earl Pe 
dx, Ax Ax | Ax Pc, AG 

2k. ee ie ee 
a all ah itl 


Eq. (2-5) uses the temperature differences at the enc of the finite time 
interval instead of at the beginning, as in the explicit method of 

Eq. (2-2). The only known temperature in Eq. (2-5) is Tis but there are 
corresponding equations for each node in the system, and all are solved 


Simultaneously to yield the temperature at each node. 


Collecting all unknown temperatures on the left side of the equa- 


tion and the known temperature on the right side, Eq. (2-5) becomes 
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Faemlc-c)mussOt the form 


r + : = D ooh 
AT 4 ats BT. CT 4a ( ) 


In STAB II, such an equation is generated for each node in the system. 
Specifically, the subroutine COEFF is used to calculate the coefficients, 


A, B; Cy and De of Eq. (2-7) ° 


Because radiation is an important mode of heat transfer in a char- 
ring ablator, a problem is encountered in any equation which contains a 
radiation term. The radiation heat flux, written in a backward differ- 


ence form is 


dae = reo(t$ = 7) (2-8) 


This term cannot be used in an implicit solution since the unknown tem- 


: 
perature is raised to the fourth woes ) The fourth power unknown can 
7 
be eliminated by the following linearizations 
4 
(t.) 4 =e (ag ar) 4 = ri (2 + T) (2-9a) 
Be ok ae ie 
a 
ge Pe eee (2—95) 
ob 1 
A 
Z = = (2—>9c) 
at 
Rewriting Eq. (2-9) as 
4 
Ti)° = (,)"( + 2) (2-10) 


ed 


Now if Z has an absolute value near zero, the following is true 


(i Zz)“ eZ (2-9 


Substituting Eq. (2-11) into Eq. (2=10) 
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Eq. (2-12) is a linearized approximation of Eq. (2-9), in which the om, 
unknown temperature is only raised to the first power. The assumption in 
BGs, (2-12)- 1s that T, has an absolute value near zero. Dr. Curry has 
determined that for most ablation problems in which surface temperature 
is high and radiation losses are significant, the value of = can easily 


(7) 


be controlled to values of less than +0.1. Therefore, Eq. (2-8) "can 


be written as 
4 
gq = Feo (erin; Se Sg 4) (2-13) 
ed: a ) 


Note in Eq. (2-13), the only unknown term is the temperature, Tis the 


temperature at node i at the next time step. 


Using the linearized approximation for the radiation terms, the 
resulting system of implicit difference equations constitutes a tridia- 


(7) 


gonal matrix of the following form 
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Gauss' elimination method, discussed in Reference (13) is applied 
to solve the system of equations. This method yields a fast and accurate 
solution for matrices containing a dominant diagonal. The solution of 
this matrix gives the temperature of each node in the system for the next 
future time step. The entire process is repeated for each time step 


throughout the run, giving a history of the temperature at each node. 


By using this method, residual errors in the temperature computa- 
tions at the beginning of the time step are distributed throughout the 
entire system of nodal equations and tend to cancel out rapidly. The 
principal advantage in using the implicit method is a set of equations 
that are mathematically stable in time and distance. Therefore, the 
Magnitude of the time step is not limited by a convergence criterion. 
However, as discovered by this author, care must be taken in selecting 
the magnitude of the time step in order to Minimize truncations errors 
whenever the second derivative of temperature with respect to time is 
large. Similarly, to minimize truncation errors in distance, small node 
dimensions should be used in areas where the second derivatives of tem- 


perature with respect to distance are expected to be large. 


As noted by Dr. Curry, Reference (7), in the case of a char- 
forming ablative material where approximately 80 percent of the heat is 
reradiated, instability can arise in taking large time steps. The tem- 
perature of the surface node can start oscillating on successive time 
steps when a balance between the radiation source and the ablative mater- 


ial has been achieved. Therefore, in ablation problems in which the 
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surface node loses a large percentage of heat by reradiation, oscilla- 
tions of the node can be damped out by taking small time steps during 
conditions of high heat flux and when near radiation equilibrium tempera- 


(7) 


tures. Even though this thesis exercised the program at relatively 
low heat fluxes (10 Btu/fe- 20 the problem of surface node oscillation 
occurred during runs in which the low heat flux was applied for a rela- 
tively long time, as in 200 seconds. As recommended by Dr. Curry, this 
problem was solved at the expense of increased computer time by reducing 


the time step of the calculations. 


ERD STAB II Methodology 


The purpose of this section is to describe how the STAB II program 
models the ablative process. This will entail an in-depth analysis of 
the nodal energy balances, both at the surface and interior nodes of the 
virgin ablative material, as well as at the nodes of the backup mater- 
ials. Most of the information for this section comes from Chapter 1 of 


the STAB II User's Manet 


2.2.1 Description of the Physical System 


The transient response of a one-dimensional, charring thermal 
protection system is the result of a complex set of physiochemical pro- 
cesses which are impossible to model exactly. The STAB II computer pro- 
gram is the result of modeling a simplified physical system as shown in 


E GUiMer 2 cclee 


The basic ablation mechanism modeled in the program is the pyrol- 


ysis of ablative material described by the expression: 
Virgin material +> gas + char (2-14) 


This pyrolysis process is assumed to occur in the reaction zone defined 


by temperature and density limits. In particular, the regions of the 
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ablative material (which are called the virgin region, the reaction zone 


region, and the char region) are defined by the following density ratio: 


et = Pa 
PigtA.. = a (2-5) 
1 Pp. - p 
Vv Cc 


where 

Ps = the density of char material 

oe or the density of virgin material 

Pp, = the node density calculated by subroutine ABLATE 

A node is in the reacting zone if its THETA value is in the range 
(0.01, 0.995). For THETA less than or equal to 0.01, the node is in the 


char zone. Pyrolysis gas generation can not begin until the nodal tem- 
perature reaches the temperature of ablation, TABL, (TABL is an input 
item). Therefore, THETA , remains 1 until the node temperature is greater 


than or equal to TABL. 


In addition to the basic pyrolysis of the virgin ablator, the 


following energy transport mechanisms may occur as noted in Figure ee 
(1) Transport by convection of the pyrolysis gases through the 
porous char. 
(2) Transport by conduction throughout the entire system. 
(3) Transport by reactions between the char and pyrolysis gas 


products such as redeposition of pyrolysis gas products on 


the char structure (coking) and reactions between char and 


pyrolysis gas constituents. 


eu 


DISTINCT REGIONS AND MODES 
OF ENERGY TRANSPORT 


FULLY CHARRED REGION 


e CONDUCTION 

e CONVECTION 

e GAS-CHAR REACTIONS 
e COKING 
e CARBON-SILICA 


REACTION ZONE 


e PYROLYSIS 
@ CONDUCTION 
e CONVECTION 


VIRGIN MATERIAL 
e CONDUCTION 


BACKUP STRUCTURE 


e CONDUCTION 
@ RADIATION 
e CONVECTION 





CABIN ENVIRONMENT BOUNDARY 
CONDITION 


e ADIABATIC 
@e RADIATION 


Figure 2.1. Physical model of a charring ablator. 


2.2.2 Formulation of the Energy Eouarren 


The calculation of the in-depth response requires the solution of 


an energy equation of the fou 


oo. 
3 . ee ye 
Pec (=) = aoe iG oT + Bes. ot + U .H (—3) + Oa) 
p OX Ox em Ee OX ; J ve OT k «K 
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(2= iia 


oe 


where the individual terms represent: 


oT 
— (= = rate of energy storage Ga) 
=o K es = heat conduction (2-16b) 
OX ox : 
e oT c 
mc (=) = heat convected by pyrolysis gases (2—-16@) 
a Pg. 
i 
oa 
v.H ue = rate of heat absorption due to (2-16d) 
5 : 5 thermochemical reaction of the 


ablative material constituents 


possible additional modes of heat (2-16e) 
absorption or liberation not 
otherwise accounted for 


20, 


The boundary conditions at the ablator surface in the most general 


(8) 


form are illustrated in Figure 2.2 and described by the expression 


oT 
+ + - ~ = -K — 
Ctiaw dradiation tI combustion qd eradiation I sublimation _ Ox =0 
(2-17) 
where the terms above represent the following: 
Gq ag = hot wall convective flux corrected for (2-17a) 
the effects of mass injection into the 
boundary layer 
q ; = incident radiative heat flux (2-17b) 
radiation 


3)3) 


<a = heat liberated at the surface due to (2-172) 
combustion of char constituents with 
boundary layer gaseous species 


gq ee, = heat flux reradiated from surface (2-17d) 
reradiation 
= d e . _ 
Ba oma On energy absorbed due to char sublimation (2-17e) 
oT e 
Ka een oe conduction at ablator surface (2-17£) 


At the ablator/backup structure bondline, the boundary condition is one 


Of StELrUctly-conduction 


oT oT 
a ox |[x=L TS ox =L (2-18) 


The boundary condition at the interface between the last backup material 


and the backside environment can allow for radiation or it can be adia- 


baeic. 


GCONVECTION ASUBLIMATION 


GRADIATION FRERADIATION 


YCOMBUSTION 4YBLOCK 


AICONDUCTION 


(8) 


Figure 2.2. Surface energq, a4) ai-c. 
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“oo laee it Version of “the nergy Bquation 


Eq. (2-16) represents the general form of the energy equation for 
describing the charring ablation process. Since the STAB II program is 
modeling a simplified representation of the complex chemistry by assuming 


(Eq. (2-14)) 
virgin material ~*> gas + char 


the summation terms of Eq. (2-16) may be represented by equivalent val- 
(8 


ues. Neglecting any additional modes of heat absorption or libera- 


tion, the following form of the energy equation is obtained: 
oT 3 oT —— oT 1 op 
oc, (2) ox (x o ated (22) oe’ 


Many ablative materials, particularly those exposed to a hyper- 
thermal atmospheric entry environment, experience surface recession. To 
account for surface recession in the energy equation, Dr. Curry has in- 
corporated a moving coordinate system via the Landau transformation. 

This transformation will not be detailed here because, under the low heat 
fluxes our group studied, surface recession was never a factor and thus, 
surface recession was purposely input to be zero during all times and 
temperatures. The details of this coordinate transformation are con- 
tained on page 1-6 of Reference (8). Before proceeding to the nodal 
difference formulations, it is appropriate to consider some of the ex- 


pressions involved in the mathematical simulation of the ablation process. 


2.2.4 The Use of an Arrhenius Equation 


All ablative materials experience a mass loss as they ablate. 
This mass loss is a result of the chemical degradation of the material 
constituents which are in the "reaction" zone. As the material undergoes 


chemical decomposition, pyrolysis gases are produced which percolate out 
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of the material through the surface, thus removing mass from the ablative 
system. Incident heat is adsorbed in producing the chemical degradation 
of the material and also, the pyrolysis gases themselves adsorb incident 
heat as they percolate through the material. As noted in Reference (6), 
the pyrolysis gases serve as a major mechanism in removing heat from an 
ablative material and, therefore, in any ablation simulation it is very 


important to accurately model the generation of these gases. 


The technique used to model the generation of the pyrolysis gases 
involves examining the mass loss an ablative material experiences over 
various temperatures when heated by a constant heating rate. A test has 
been designed for just this purpose and it is called a thermogravimetric 
analysis or TGA. Very simply, a TGA test of an ablative material in- 
volves placing a small sample of the material in a crucible which is ona 
scale. The sample is then heated from ambient temperature to a predeter- 
mined maximum temperature (i.e., 2000°F) at a constant temperature-rise 
rate. During the heating cycle the thermobalance continuously records 


mass changes of the sample. 


The thermogravimetric data for a typical charring ablation mate- 
rial is seen in Figure 2.3. This S-shaped curve is typical for most 
ablative materials. The middle part of the curve with the downward slope 
represents the region over which chemical degradation is occurring and 
pyrolysis gases are being produced. Some materials experience chemical 
degradation and mass loss over multiple temperature regions and their TGA 


curves reflect this. 


Early researchers trying to model the ablation process encountered 
many difficulties in analytically representing the pyrolysis gas genera- 
tion and associated mass loss phenomenon. Finally, many investigators 
discovered that this mass loss could be accurately modeled by the use of 
an Arrhenius equation. This reporter has discovered that, in fact, al- 
most all current ablation models use an Arrhenius-type equation to model 


the mass loss or rather the gas generation which takes place in ablation. 
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The Arrhenius Equation named after Sweden's Svante Arrhenius, a 
Nobel prize winner in chemistry in 1903, is really a class of equations 


which predicts the effects of temperature on the reaction rate of a chem- 


ical process. In its simplest form the equation looks iike oe 
K = A ee (2-20) 
where 
K = the reaction rate constant 
A = the frequency factor 
E = the activation energy or the amount of energy in excess of 


the average energy level which the reactants must possess in 
order to proceed in a reaction 


R = the gas constant 


T = the temperature 


Although Eq. (2-20) is almost 80 years old, its accuracy in predicting 
reaction rate dependency on temperature is so good that it has found wide 


applications in a great number of reaction kinetics Sedeiasie 0 


The original version of STAB II did not use Arrhenius-type equa- 
tions, but because of their general success in modeling the production of 
pyrolysis gases, Dr. Curry incorporated them into the current version of 


the program. In the program, the calculation of the production of pyrol- 


ysis gases is performed in subroutines ABLATE and ABL2. The equation 


used for this purpose has the following basic form 


dm Pp. - Pie SN -XB/T. 
= ca ) e ‘ (2-21) 
oe Po 
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where 


m = the mass flow of the pyrolysis gas 


= the axial direction of the gas flow 


CA = the coefficient of the Arrhenius equation 
Pa 7 Po th 
3 ; = the density of the i node; - is the density of the 
c ets 
x char, and P. is the density of the virgin material 
SN = the reaction order for the Arrhenius equation 
XB = the activation energy of the Arrhenius equation 
Belg 
T. = the temperature of the i node 


The variable CA corresponds directly with the variable A of Eq. (2-20), 
the frequency factor. And the variable XB corresponds directly with 
variable E of Eq. (2-20), the activation energy. The variable SN is not 
found in Eq. (2-20). It is an added factor called the reaction order and 
did not influence the results of this thesis since it was always assigned 
equal to one. The proper units for the variables of Eq. (2-21) are shown 


in Appendix B. 


Another subroutine in STAB II which uses an Arrhenius expression 
is subroutine COEFF. One of the terms of an energy balanced performed in 


mers Subroutine is 


-XB/T. 
A 
uv) (“£)cca) (Pp. -— /— foe = (2-22) 
aL (Ge 


All the terms of Eq. (2-22) are the same as in Eq. (2-21), except the 
heat of degradation, HV, is added. This variable is the endothermic 
energy necessary to make the material chemically degrade. The units of 
HV are Btu/lbm. The remaining terms in Eq. (2-22) combine to calculate 


the mass flow of the pyrolysis gases. The units are of Tem/Et os. The 
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pyrolysis gases are the agents which remove the absorbed heat of degrada- 
tion out of the material and the final units of Eq. (2-22) “anreuasheae 


2 
flux, Seu; ties —s. 


The determination of the frequency factor, CA, and activation 
energy, XB, is a somewhat complicated task which is completely described 
in Reference (15). Basically, these coefficients can be calculated with 
the results of the TGA data for a material in question. Reference (15) 
describes five different methods to interpret the TGA data in order to 
determine the values of CA and XB. As will be discussed later in this 
thesis, TGA data was not immediately available for the intumescent mate- 
rial, Firex 2373. Therefore, this author's greatest effort involved de- 
termining the correct values of CA and XB in order for the computer model 
to match experimental results. In other words, given experimental re- 
sults, values of CA and XB were deduced to make the model predict the 
experiment. This researcher discovered that variations in CA, and more 
importantly XB, had very significant effects on the output of the model. 
It is worth noting that although these two factors have strong influences 
On the results of the model, an examination of Reference (15) indicates 
that these coefficients can reasonably be determined experimentally to 


accuracies only on the order of plus or minus 1000 per cent. 


The STAB II User's Manual explains the mathematical simulation of 
several other ablative phenomena such as the calculation of the hot wall 
convective heat flux. Since most of these phenomena are only associated 
with hyperthermal reentry applications and are not pertinent to applica- 
tion of a low, radiative heat flux, their explanations are not included 


im this. thesis. 


2.2.5 Difference Form of the Energy Equation 


The difference representation of the energy equation is formulated 
differently for interior nodes and boundary nodes. The following para- 


graphs detail the difference equations programmed into STAB II for the 
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various nodes. Note the next subsections are taken directly from infor- 
mation provideca in pages 9 through 19 of Chapter One of The STAB II 
User's Manual. Also the prime, "'", denotes the temperature at the next 


time step. 


2.2.5.1 Energy Balances for the Ablation Material 


2.2.5.1.1 The energy balance for the surface node (i=1) 


node l node 2 
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Rearranging Eq. (2-23) to the form of subroutine COEFF and grouping tem- 


perature coefficients yields 


4l 
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(2-23a) 


Note that S is the surface recession which was set to zero in all the 


applications of this thesis. 


2.2.5.1.2 The Energy Balance for the Interior Nodes (i=2, NP-1) 


node 1- 1 node 1 node i+ l 
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Rearranging Eq. (2-24) gives 
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NP is the total number of nodes selected in the input statement. 
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2.2.5.1.3 The Energy Balance for the Last Node in the Ablation Mate- 
rial (NP) and the First Node in the Backup Structure (1,1) 


In order to interface 


tT! = TT! (2-25a) 


In the backup structure materials are designated "i" and nodes "3". 


Soe ce Ax, (2-25b) 
oi = oe (2-25c) 
e =i SC (2-25d) 
p Psi 
k =~ kee (2-25e) 
jr 


The energy balance is as follows 


node NP node 1,l 





ablator + backup material 
bondline 


3-4 





Upon rearranging, Eq. (2-26) becomes 
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2.2.5.2 Energy Balances for the Back-Up Structure Materials 


Note: In this section subscripts indicate: 


a. 
I 


back-up material designation 


node designation 


Ci 
II 


Either of two situations may exist at the interface between two 


backup materials. 


Gi) For the condition of no air gap existing between the mate- 
rials, heat transfer is considered only in the form of 


COnNGCUCEION:. 


Can) When an air gap exists between the materials, heat transfer 


by convection and radiation is considered. 
node &% node l node 2 - 1 node & node 1 


cond 





Materials Macerdale = ask Material i material i+l 


(a) No air gap (6b) (Ate egap 


The difference equations for each of these conditions are detailed in the 


following subsections. 


2.2.5.2.1 The Energy Balance for the First Node of the Backup Structure 
aRae Var eee ie 


There is no air gap considered at the bondline. To interface with 


the last node of the heat shield (NP), T is set equal to T._.. The 


iy NP 
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energy balance is the same as that for node NP, and Eq. (2-26a) is used 


in subroutine COEFF. 


2.2.5.2.2 The Energy Balance for an Interior Material Surface Node 


(1) No air gap between materials. For boundary nodes of inte- 
rior materials (j = 1, 1> 1) the temperature ae 1 is made 
f 


equal to the temperature of the last node (2) in material 


i-l. The energy balance for an interior boundary node is 
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Rearranging fq.s (2=—2 /) ie lice 
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(2) Air gap between materials 


Note: Symbols for the radiation and convection terms in 


the energy balance are: 


H = convective film coefficient 
—€ = emissivity of the material 
o = Stefan-Boltzmann constant 
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The energy balance is as follows 
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oa 
The fourth power unknowns (T ) can be eliminated by the 


following linearizations 


(pty 4 = (T + ar) + = o(1 + =) (2-29) 

- AT 

Let Z = = 
(pty 4 = T*(1 + z) 4 (2-30) 
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If Z has an absolute value near zero, the following is true 


es z)* =. ol SZ (2-315 


Substituting into Eq.” (2-29) 
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Rearranging Eq. (2-33) grouping temperature coefficients 
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The Energy Balance for the Interior Nodes of Any Material 
(j=2, NPM-1; i=1, NMB) 
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Rearranging Eq. (2-34) gives 
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2.2.5.2.4 The Energy Balance for the Last Node of an Interior Material. 


(1) No air gap between materials. The equation for node &, 
1 < NMB is the same as Eq. (2-27a) only the subscripts 


change. 
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2) Air gap between materials. The equation for the interior 


nodes of each material (j = NPM = k, i < NMB) is the same 


as Eq. (2-28), only the subscripts change. 
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2.2.5.2.5 The Energy Balance for the Interior Node 
(1) For the last node in the final backup material (j = mM, 


1 = NMB) radiation and convection to the cabin are consid- 


ered. 
He = film coefficient to interior cabin environment 
T = temperature of interior cabin environment 
F = view factor and emissivity product for radiant heat transfer 


into the cabin. 
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The energy balance between the backup structure and the cabin is 
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Expanding the fourth order unknown by Eq. (2-32), Eq. (2-37) becomes 
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Rearranging Eq. (2-37a) yields 
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2.2.6 Formulation of the Momentum Equation 


It may be desirable to determine the internal pressure distribu- 
tion through the ablator in order to use it in conjunction with pressure 
dependent thermophysical properties of the char ae eee If the 
momentum equation is uncoupled from the energy equation, the calculation 
of the internal pressure distribution may be performed in a straight- 
forward manner. The option to determine the internal pressure distribu- 
tion was not used in the pursuit of this thesis. Therefore further dis- 


cussion on this topic will not be covered. Further discussion is avail- 


able in Reference (8). 


225 Adaptations 


In using the STAB II program to model the response of an intumes- 
cent ablator, several changes were made to the original program. The 
purpose of this section is to briefly highlight some of the more perti- 


nent changes this author has made. 
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Zase ~6General 


In writing the request to Dr. Curry of NASA to obtain the STAB II 
program, this author entered the field of tape technology. Naturally 
there was some concern about the compatability of the UNIVAC 1108 system 
used at NASA and the AMDAHL 470 system used at CSDL. With the help of 
the computer staff at CSDL, all the appropriate tape parameters were 
requested from NASA. The received tape was placed on the CSDL system and 
it was discovered that the tape contained 81 characters per line; the 
AMDAHL system can only accommodate 80 characters per line. Jane Weinberg 
of the CSDL computer staff corrected this problem by writing an auxil- 
liary program to strip off the last character of every line. Fortunately 
the last character on each line was part of an administrative line label 
and not pertinent to the FORTRAN program. Once the extra characters were 
stripped off, the program was loaded onto a disc where access became much 


easier. 


As stated earlier, the changes in converting the program from 
FORTRAN V to FORTRAN 77 or VS FORTRAN were relatively minor. Once the 
program was placed into a partitioned data set (PDS), and each subroutine 
was made a member of the PDS; the program was compiled member by member. 
Upon the first compilation attempt only twelve of the fifty subroutines 
failed to successfully compile with the VS FORTRAN compiler. It was 
indeed fortunate that the two FORTRAN languages were basically compat- 
ible. Incidentally, no one at the CSDL computer facility was familiar 
with FORTRAN V, and in all probability, it is purely a UNIVAC extension of 


the more universally known FORTRAN IV. 


When first running the program, this author encountered several 
division by zero or divide checks. These divide checks caused the pro- 
gram to have an abnormal end. To correct these problems, logic loops 
were inserted to allow for a flow path around any calculations where 
inputted variables would create division by zero. For instance when the 


variable SN was assigned the value 1.0, as it always was, the calculation 


a) e 


of TUL2 and TUL3 in the MAIN program involved division by zero. This was 


corrected by IF-THEN loops. See MAIN in program listing. 


The most tedious changes in the program centered on the fact that 
VS FORTRAN only allows a four-element array for character variables while 
FORTRAN V allows a six-element array. This problem occurred in the sub- 
routines where character output such as heading information is printed. 
The subroutines, INWRIT and TBLWRT, were the most affected by this dif- 


ference in FORTRAN languages. 


Another problem encountered was the fact that VS FORTRAN does not 
allow block data statements to be a part of an executable subroutine. 
Originally, all the data on the properties of the backup materials and 
values of the virgin and char conductivities and specific heat were in- 
cluded in the MAIN member of the program. To satisfy the VS FORTRAN com- 
piler, this data was removed from MAIN and placed in a separate, nonexe- 
cutable member called MAINDA. MAINDA is a block data statement. For 


more information see Reference (16). 


Finally, another change was the replacement of an internal NASA 
Subroutine called CLOCK with an internal CSDL function called ITIME. 
This change was made in the MAIN member and the function is a running 
clock of the program execution time which is printed at the end of each 


run in the "case summary." 


2.3.2 Deletions 


The general philosophy used in making deletions to the program was 
to totally delete any unnecessary subroutines from the PDS. In the case 
of unnecessary statement lines in a needed subroutine, the philosophy was 
to "comment" the statement out of the program, thus leaving the statement 
available for any future applications. Whenever possible, statements 
which were "commented" out are noted in the program. For instance, the 


MAIN member has several statements which deal with a separate plotting 
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routine which was never obtained from NASA. These statements are com- 


mented out. 


The following subroutines have been completely deleted from the 


original program: 


ce) 


(2) 


(3) 


(4) 


(5) 


(6) 


AW) 


BLOCK DATA BLKFAC - This subroutine contains information on 


point locations for the Apollo space capsule. 


SUBROUTINE FACTR ~ FACTR calculates a convective heating 
rate multiplier, a radiative heating rate multiplier, a 
pressure ratio, and a wetted length for each trajectory 
point. These calculations applied only to the Apollo 


capsule. 


SUBROUTINE MORE - MORE calls the driver for the NASA plot- 


ting routine. 


SUBROUTINE PMES - PMES writes the plot number and required 


plotting time for NASA plotting routine. 


SUBROUTINE SCAL - SCAL determines the plotting scales for 


the dependent variables of the NASA plotting routine. 


SUBROUTINE TBLRED - TBLRED reads and stores the table input 
data. This subroutine proved to be extremely difficult to 
adjust to VS FORTRAN, and since it was not an absolute 


necessity, it was deleted. 


SUBROUTINE TPLOT - TPLOT writes the plot variables into a 


separate unit for the NASA plotting routine. 


Note that these deleted subroutines are still available in the unedited 


versions of the STAB II program in either the PDS, ABLATE.FORT, or the 


sequential data set, SDS, STABII.BACKUP.FORT. 
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CHAPTER 3 


COMPUTER PROCEDURES 


The purpose of this chapter is to provide a description of several 
of the frequently used computer procedures which are required to run and 
edit the STAB II program on the CSDL computer system. This information 
is included for the use of the members of The Charles Stark Draper Labo- 
ratory, Inc. who may desire to utilize STAB II in the future. This mate- 
rial has no bearing whatsoever on the academic results of this thesis and 


therefore it may be skipped, if desired. 


Sect STABII. FORT 


The partitioned data set, PDS, which contains the VS FORTRAN pro- 
gram STAB II is called STABII.FORT. This data set contains the main 
program driver, MAIN, and the forty-six separate subroutines of the pro- 
gram. In addition, there are two other members of STABII.FORT which are 
necessary to form an executable load Metre fe These extra members are 


SSTABII and #STABII. The entire list of STABII.FORT is contained an 
Appendix G. 


Access to STABII.FORT is very easy through the SPF editor. Any 
member (subroutine) can be quickly brought to the screen for editing by 


merely specifying the member's name in the SPF 2 entry panel. For 


example, 


Library: (STABIM 
Type: FORT 


Member: ABLATE 
60 


will give one the subroutine ablate. The use of the powerful SPF editor 
will not be covered here. For more information on SPF see Reference (18). 
As a side note, the "Introduction to TSO" course is highly recommended 

for anyone not familiar with the CSDL system. Lesson four covers the SPF 


editor. 


Br2 Compilation 


There are several ways to compile the program, but the most inex- 
pensive way is to use batch processing or to submit the compilation job 
in the background. The command to compile the PDS, STABIT.FORT, with 
VS FORTRAN in the background is: 


XBFORTCL STABII.FORT FORT (V) 


This is an interactive command which asks the user several questions 
concerning preprocessing and optimization level before it generates a job 
which submits the compilation in batch. You are not required to have any 
knowledge of the job control language, JCL, that is used to submit the 
compilation in batch. The computer asks if all the members should be 
compiled and which ones should be compiled if all the members are not re- 
quested. The output of the compilations is sent immediately to the 


printer. See Reference (17) for more details on this command. 


Because the members MAIN and MAINDA were frequently changed and 
recompiled, job control language for submission of the compilations of 
these members was saved in two data sets, MCOMP.CNTL and MDCOMP.CNTL. 
With these two control data sets, the compilation jobs could easily be 
called and submitted, without having to go through the XBFORTCL command. 
The JCL for these members is on page 131 of Appendix C. Note that the 
message class for these two jobs is specified as an "H" which means the 
output is to be held in an output queue. This was done to allow the 
operator to quickly check whether or not the member compiled successfully 


without having to wait for the printed output. This saved considerable 
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time especially in that phase of the work when the conductivity of the 
virgin material was being frequently adjusted in the MAINDA member. Held 


output is available for screening with the SPF option 8.H. 


Sees, Linking 


Linking the program was done through the SPF option D.4.L. The 
three panels this option generates in the process of making the link are 
on pages 132 through 134 of Appendix C. Prior to performing thems 
it is sometimes necessary to delete the old load data set called PGM.LOAD 
and create a new one; otherwise, the load data set may run out of region 
room. This author created a member of his CMD.LIST called PRELINK to 


delete and then recreate PGM.LOAD with one command, "PRELINK". 


3.4 Running the Program 


Once all the members have been successfully compiled and the pro- 
gram has been successfully linked, it can be executed. The program was 
Submitted for execution in the background (BATCH) because of the savings 
in execution cost with a very minor effect on problem turnaround time. 
The JCL for two separate submissions of the execution job are seen on 
page 135 of Appendix C. In the first submission, STABII.CNTL(TESTRUN), 
all the system messages such as error messages or execution costs and the 
output results are printed into the same data set, "SYSOUT". In the 
second submission, the system messages go to SYSOUT while the output 
results go into the data set OUTPUT.DATA which then must be printed 
through a separate request. The sample output contained in Appendix E is 
an example of sending the results to the data set OUTPUT.DATA. Of course 
prior to submitting any runs of STAB II for execution, one should ensure 
that the input data contained in the data set INPUT.DATA (see Appendix D) 


1S .COrrece. 
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See Plotting 


The plotting routine used to generate the plots for this thesis is 
called PLOT4B. This is an external program maintained on the CSDL system 
which reads points from a designated data set and plots them on either 


the Versatec plotter or 9800 printer. 


A typical plot data set is PLOT4.DATA as seen on page 136 of Appen- 
dix C. The PLOT4B routine allows up to three graphs to be plotted on any 
one plotting sheet. To use the routine for the PLOT4.DATA, the command 


is: 


XPLOT4B PLOT4.DATA 


This plotting routine has many capabilities which are fully described in 
Reference (19). Since the plots are produced by connecting discrete 
points by straight lines, this author discovered that at least twenty to 


thirty data points are necessary to yield a smooth plot. 
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CHAPTER 4 


PROGRAM TESTING 


A Introduction 


Significant program testing was required to determine the input 
variables which were the most influential in affecting the output re- 
sults. Determining these variables was of paramount importance if this 
author was to have any success in adjusting the computer model to match 
the experimental results of Lieutenant Joseph P. Marques. In addition 
to the parametric studies conducted on input variables, many of the 


program operating options were tried during the program testing phase. 


In order to understand the direction of the entire testing phase, 
one must examine Figure 4.1, which is a plot of a 2-inch slug of Firex 
2373 exposed to a 200-second burn. The burn was a constant heat flux 
of 10 a eaye eee The plotted temperatures are of a thermocouple placed 
at 0.25 inch from the surface for both the experimental data, ETCL, 
and the computer-predicted results, XTCL. The values used in the com- 
puter to generate the XTCL curve were the original values NASA used in 
the program for the Apollo heat shield material. The only difference 
was that the conductivity of Firex 2373 was input and modeled over tem- 
perature as shown in Figure 4.2. Clearly, the model's predictions were 
too high, and therefore, the success of this thesis depended on making 
model adjustments which could greatly reduce the outputted thermocouple 


temperatures. 


The purpose of this chapter is to qualitatively describe the 


results of the initial program testing. This information should be of 
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Figure 4.1. Plot of computer-predicted, XTCL, and experimental, ETCL, 
thermocouple temperatures versus time for a 2-inch slug 
of Firex 2373 exposed to a constant heat flux of 10 Btu/ft -s 
for 200 seconds. Thermocouple locations are 0.25 inches 
from the slug surface. Data for computer prediction based 
On values used in Apollo heat shield simulation. 
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practical value to anyone wishing to use STAB II to model other ablative 
materials. Although the discussion in this chapter is basically quali- 
tative in nature, it is the result of over a hundred computer runs which 


could not possibly be included in this thesis. 


The next chapter will provide more detailed information on how 
the key input variables affected the model output. Appendix B is an 
extensive table of all the NAMELIST (input) variables complete with pro- 
per units, computer dimensions, and author's comments. Since the com- 
plete description of the input variables is available in Appendix B, very 
little descriptive information of the variables will be included in the 


following discussion. 


4.2 Number of Nodes, NP 


The program can accommodate up to fifty nodes in the ablative 
material. In general, increasing the number of nodes increased the ac- 
curacy of the results. But using too many nodes can be costly and, in 
Many cases, the extra cost is not merited. From experience, a nodal 
length in the ablative material of 0.06 inches worked well. This same 


nodal length is seen to be used in the "sample case" of Reference (8). 


a. 3 Time Step, DELTT 


This is a critical input item because of the way in which the 
surface energy balance is performed. Because the surface energy balance 
is not an iterative process between time steps, surface temperature os- 


Cillations can Pe ae 


These temperature oscillations can be removed 
by using a smaller time step in the calculations, particularly when the 
temperature is changing rapidly, as for example, when the burn is occur- 
ring. In the sample output seen in Appendix E, small surface node os- 
Cillations can be seen to begin at time equal to 120 seconds. These 


oscillations were later removed by decreasing DELTT from 1.0 to 0.1 
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second. Using the smaller time step removed the oscillations, and in 
this case, since the oscillations were not severe, the outputted thermo- 
couple temperatures were not changed. By reducing the time step ten 
times, the execution cost per run increased from $2.00 to $8.00. For 
the application of this thesis, a time step of 1.0 second proved to be 
the best. Using a larger time step especially over the burn period, 
allowed the nodal temperatures to rise too quickly, thus making them 


inaccurate and much larger than experimentally observed. 


One of the options in STAB II allows the user the ability to 
change the time step at various stages in the computer run. This would 
allow the capability of using a small time step during the dynamic 
burning period and a larger time step in the less critical cool-down 
period. This author tried many times to use this option but with no 
Success. Whatever calculation interval was initially specified in the 
input statement, was the calculation interval used for the entire run. 
For more information on changing the time steps and print out intervals 


see the descriptions of variables DELTT, IPRC, NPTT, and TTABLE in 


Appendix B. 
4.4 Heat of Degradation, HV 


This variable is the endothermic energy necessary to make a mate- 
rial ablate and form pyrolysis gases. This absorbed energy is carried 
out of the material by the pyrolysis gases. The larger HV is, the less 
the thermocouple temperatures are because more heat is carried out of 
the material and less is conducted through it. Varying the value of HV 
indeed verified the previous statement. The important thing to note, 
however, is that significant increases in HV produced only minor de- 
creases in the thermocouple temperatures. Therefore, HV was not consid- 
ered a key variable to use in adjusting the model to match the experi- 
mental results. Conversations with Dr. Curry further confirmed HV to be 
of small importance and in the final Firex 2373 model, HV was set to the 


value advertised by the manufacturer, 2000 Btu/lbm. 
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25 Specific Heat of the Pyrolysis Gas, CPGAS 


This variable has a similar effect on the results of the model 
as HV produced. Increasing CPGAS allows the pyrolysis gases to absorb 
more incident heat as they percolate out of the material, thereby allow- 
ing less heat to be conducted through the material. Thus, the thermo- 
couple temperatures are effectively reduced. Again, however, significant 
increases in CPGAS produce only minor reductions in thermocouple temper- 
atures. So like HV, CPGAS was not considered a key variable to use in 
adjusting the model. Since no other information was available, CPGAS 


was assumed to have the same value as used in the Apollo material. 


4.6 Emissivity of the Virgin Material and Char, EMV, EMC 


The emissivity of the virgin material is used in the calculation 
of the surface energy balance. Although a higher EMV reduces nodal 
temperatures slightly because less radiative heat enters the material, 
this effect of emissivity was considered to be very minor, and thus, 

EMV was not a key variable to use in adjusting the model. The emissivity 
of the char, EMC, was even less important due to the fact that little 
if any char formed on the surface of Firex in both the experimental and 


computer tests. 


4.7 Reaction Order for the Arrhenius Equation, SN 


Increasing the value of this variable had a modest effect in 
reducing the thermocouple temperatures. This benefit had a limited poten- 
tial because increasing the value of SN above 3.0 produced uncontrollable 
surface temperature oscillations in which the surface temperatures 
would actually go to negative values. Most ablative materials, as evi- 
denced by Reference (15), have a range of SN values which varies between 
0.95 and 2.0. Because changing SN had such a modest impact on the 
computer results and because this author felt the least confident about 


changing SN from its Apollo value, a decision was made to keep SN ata 
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value of 1.0 and not to rely on SN to be a major contributenerie 


justing the computer model. 


4.8 Coefficient in the Arrhenius Equation, CA, or The Frequency Factor 


Changing this variable did have a significant effect on the 
thermocouple temperatures and it became one of the key variables to use 
in adjusting the computer model. Increasing CA successfully reduced the 
thermocouple temperatures, but after a certain point was reached, any 
further increases in CA created temperature oscillations at the surface 
and underflow errors in the subroutine COEFF. Increasing the frequency 
factor increases the molecular collisions per minute, which in turn 
increases the probability of chemical degradation occurring. E.G. del 
Valle in his doctoral thesis, Reference (6), systematically studied 
the role both the frequency factor and the activation energy play in the 
ablation process. One of his conclusions was that the thickness of the 
reaction zone is controlled almost entirely by the frequency factor. So 
increasing the frequency factor effectively increases the amount of 
material which ablates thereby increasing the amount of heat carried 
out of the material by the pyrolysis gases. The end result is to 
decrease the amount of heat conducted through the material, thus reduc- 


ing the thermocouple temperatures. 


4.9 Activation Energy in the Arrhenius Equation, XB 


This variable was even more effective than CA in changing the 
thermocouple temperatures. Unlike the case of CA, here the thermo- 
couple temperatures were decreased by decreasing XB. Decreasing XB 
allows more material to ablate because the energy required to start 
the chemical ablative process is less. Or stated differently, del Valle 
discovered that the activation energy, XB, strongly influences the pyrol- 


(6) 


ysis temperature. Thus, for a given heat flux, decreasing XB 
allows the beneficial pyrolysis reaction to proceed sooner, and overall, 


more material will then ablate. As more material ablates, more heat 
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is carried away and less heat is conducted through the material. It 
will be shown in the next chapter that XB was, in fact, the most criti- 
cal variable in adjusting the computer model. Its primary importance 
stems from its large sensitivity. Small decreases in XB produce very 
large decreases in thermocouple temperatures. And as can be seen again 
in Figure 4.1, significant thermocouple temperature reductions were 


needed to match the experimental results. 


The enormous effects XB has on the computed results can be seen 


by reexamining Eq. (2-22). 


hoe SN ~XB/T.. 
ev] FCA ae i? r=) 


This equation is used in the subroutine COEFF to determine the tempera- 
tures at all the nodes. Decreasing XB Significantly increases the en- 
tire term of Eq. (2-22). In calculating the nodal temperatures, this 
term is subtracted from several other terms so that the larger Eg. (2-22) 
is, the smaller the resulting nodal temperatures will be. For example, 
by reducing XB from its Apollo value of 23,300 to 17,000, the maximum 
surface temperature during a 200-second burn on a 2-inch slug of Firex 
2373 was reduced from 1365 to 586°F. Reducing the surface temperature 
was, in effect, a primary means of adjusting the model because the 
surface temperature is the driving potential that ultimately determines 


the temperatures at all the other nodes. 


4.10 Conductivity of the Virgin Material K(V) 


The conductivity of the virgin material is input into the program 
through the data statement MAINDA. The conductivity is entered as a 
function of temperature into Table 99996. In the early program testing, 
the virgin conductivity was modeled as seen in Figure 4.2 and not altered. 
Although CA and XB were effective in moving the computer-predicted 


curves up and down in temperature, no parameter seemed effective in 
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altering the time the thermocouple temperature peaked, or in altering 

the slope of the thermocouple curve during the cool-down phase. After 
a long discussion with Dr. Curry, this author realized that the conduc-— 
tivity of the virgin material could be quite a significant tool in ad- 


justing the model, particularly for the case of an intumescent ablator. 


The conductivity model seen in Figure 4.2 clearly reflected the 
fact that the conductivity of an intumescent ablator decreases as it 
foams and swells during ablation. The data used to construct Figure 4.2 
was obtained from the Dynatech Corp., which performed conductivity tests 
on a slab of unablated Firex 2373. Dynatech reported a room temperature 
conductivity of the virgin Firex to be 0.199 Btu/ft-h-°R while the 
manufacturer, Pfizer Ine., reported a virgin conductivity Gree 
Btu/ft-h-°R. These two values bracketed the room temperature conduc- 
tivity but unfortunately no information was available on the conductivity 


of intumesced Firex. 


With the above information, this author constructed several 
potential models of the conductivity of Firex, and then ran the program 
with the different models. The results of these computer tests demon- 
strated that indeed the conductivity model was capable of adjusting 
both the time of thermocouple peak and the slope of the cool-down curve. 
The plan was to deduce the conductivity of the intumesced Firex by find- 
ing out what conductivity would be needed to match the experimental 
results. Note the conductivity of char would be equally important if 


more char formed. 


The next chapter contains more on the conductivity modeling. In 
summary, the initial program testing identified three variables to be 
the most effective in adjusting the computer model. These variables 
were the frequency factor, CA, the activation energy, XB, and the 


Conductivity cf the virginemacesiaie 
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4.11 Program Options 


The following sections contain brief remarks concerning several 


of the options available in the STAB II program. 


4.11.1 Multiple Runs 


The program is supposed to have the capability of running several 
cases with one input data set in which the various cases are separated 
by a four-digit real number. The last case has the number "9999." after 
it. Note that once a variable is initialized in an input statement, 
it keeps that value until specifically reassigned. Unfortunately, this 
author could never successfully get this option to work, and therefore, 
only one case could be run at a time. The reason for this problem is 
believed to be the fact that the subroutine RESET was never included in 
any NASA-furnished information including the STAB II User's Manual. 
Without this subroutine, Dr. Curry suggested making a dummy subroutine 
called RESET to satisfy the MAIN routine call. This was done, but still, 


the original RESET must have some function in the multiple case option. 
4.11.2 Thermocouple Driver 


This option allows the user to drive the program by inputting the 
surface temperatures as a function of time instead of inputting the heat 
fluxes (heating rate driver). Again, this author had no success with 
this option. By using a surface pyrometer, Lt. Marques was able to 
obtain the surface temperature values over an entire burn sequence. 

When these temperatures were input under the thermocouple driver option 
none of the material ablated. It was noted that the surface temperatures 
inputted were close to the surface temperatures that are calculated when 
the heating rate driver is used. This problem was never brought to Dr. 
Curry's attention and this author has no idea for the reason behind this 


failure. 


ds 


4.11.3 Multiple Backups 


As mentioned earlier, the program can accommodate up to 12 back- 
up materials. During a conversation with Dr. Curry, both the author 
and Dr. Curry discovered that at least three backup materials have to be 
used to run the program. This fact is noted in the table of NAMELIST 
variables, Appendix B. For this thesis, three l-inch air gaps were used 
as the backup materials since our group was reasonably certain that the 
backside of the experimental slug was almost perfectly insulated. In 
running the program for the 45-second burn on the 0.1875-inch water spe- 
cimen, a 0.0625-inch aluminum plate was split into three backups. The 
point worth mentioning here is that the type of backup material did not 
seem to significantly change the results of the computed temperatures. 
This observation may only apply to the application of the program to our 


specific purpose. 


4.11.4 Boundary Condition for the Last Node of Backup Material 


For almost all the runs, the boundary condition between the last 
node of the backup material and the environment was perfect insulation 
or no heat exchange, QLOSS=0. Again, the insulation on the back of 
the experimental test samples was felt to be nearly perfect. This author 
tried setting QLOSS#0., thus allowing heat exchange at the boundary and 


this change did not seem to have any effect on the output results. 
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CHAPTER 5 


MODEL SELECTION AND THE DEMONSTRATION OF 
HOW THE KEY VARIABLES AFFECT THE MODEL RESULTS 


BL Introduction 


The primary purpose of this chapter is to present the computer 
model finally selected to predict the thermal response of Firex 2373 when 
exposed to a transient, low heat flux environment. In addition, each of 
the key variables—CA, XB, and the conductivity of the virgin material— 
will be examined for their individual influences on the model results. 
The presentation of this chapter may seem reversed because the selected 
model is discussed before the sections describing how the key variables 
individually affect the computer results, when, in fact, the model se- 
lection was based on all the understanding gained from the testing of these 


key variables. The reason for this format follows. 


In performing dozens of tests on the model, this author quickly 
discovered that no key variable had an independent effect on the results 
of the model. In other words, similar effects on the output can be 
gained by changing XB or the conductivity or even by changing both of 
them together. Isolating each change and its subsequent effect on the 
results was difficult. The tendency was to make too many changes per 
run. By changing a single variable per run the above problem was avoided. 
So, after many program alterations, the model which most closely repre- 
sented the experimental test results was selected. The many computer 
runs which supported this selection can not possibly be included in this 


thesis. 


CRs) 


In order to clearly demonstrate the influence each of the key 
variables had on the model, it was decided to present the results of the 
chosen model first so that the results obtained by altering these vari- 


ables could be compared to a standard. 


Note that the following figures in this chapter are plots of com- 
puter predicted, XTCL, and experimental, ETCL, thermocouple temperature 
versus time for a 2-inch slug of Firex 2373 exposed to a constant heat 
5a bb. een meed AG, Fao BE for 200 seconds (Figures 5.1, 5.535, 5.5 ,3257 oe 
Figures 5.10 through 5.14). In all cases, the thermocouple locations are 
0.25 inches from the slug surface. Since this description is given here, 


it will not be repeated on each figure. 


Sa Reduction in the Conductivity of the Intumesced Virgin Material 


Prior to presenting the selected model of Firex 2373, one interme- 
diate result will be discussed. Test specimens of Firex 2373 clearly 
showed that the material expanded or swelled as it ablated. The intu- 
mesced material appeared to be mostly composed of air pockets with very 
little matrix material present. This author then decided to model the 
conductivity of the intumesced material as being close to that of air, 


thus giving the intumesced material a tremendous insulative capacity. 


Before viewing the results of this new conductivity model, note 
that at this stage in the experimental matching, XB had been reduced from 
the value of 23,300 used in Apollo to 20,000, and CA had been increased from 
Sie Meee non Oo 97544 ae The effects of these changes to CA, XB, and the 
conductivity model are seen in Figure 5.1. The conductivity model is 
seen in Figure 5.2. By now the computer predicted temperatures, XTCL, 
are seen to be getting closer to predicting the experimental temperatures, 
ETCL. The changes in XB and CA were mainly responsible for the closeness 
in temperatures, while the lower conductivity modeling of the intumesced 


material was responsible for the close match in the time of maximum tem- 


perature and the slope of the cool-down region of the curve. These results 
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were encouraging, although the author realized that modeling the conduc-— 
tivity of the intumesced material as the conductivity of air was somewhat 


lMmeealistic. 


5.3 Model Selection 


The model used to obtain the results of Figure 5.1 was adjusted 
through almost a trial and error procedure until the computer results 
almost exactly matched the experimental results as seen in Figure 5.3. 

In obtaining this almost identical match, CA was left at 9.5 x ie) and XB 
was reduced further to 16,800. Also, the conductivity of the nonintu- 
mesced Firex was modeled at 0.150 Btu/ft-h-°R. The conductivity of the 
intumesced Firex remained at 0.025 Btu/ft-h-°R. The graph of the conduc-~ 
tivity model is shown in Figure 5.4. This model was thus selected as the 


model to use in predicting the response of Firex 2373 when exposed to a 


transient, low heat flux environment. 


During the heating phase, which is the first two hundred seconds, 
the computer model does an especially good job in predicting the tempera- 
ture at the 0.25-inch thermocouple. Notice that, after the burn is 
over, the computer models lower thermocouple temperatures but that the 
rate of cool down as judged by the slopes of the two curves appears to be 
the same. By comparing the values of CA and XB with values these varia- 
bles have in several ablative materials as reported by Reference (20), 
the author feels that the selection of the values of these two variables 
was clearly within reason. Modeling, the nonintumescent virgin material 
as 0.150 Btu/ft-h-°R was also reasonable because it is in between the 
Dynatech and manufacturer's reported values. Again, modeling the intu- 
mesced virgin material so low may be an exaggeration, but this was neces~ 


sary to match the slopes of the cool-down curves. 


5.4 Demonstration of How Key Variables Affect the Results 


The following sections describe how changes in CA, XB, and conduc- 


tivity of the virgin material affected the model. In order to clearly 
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Figure 5.3. Computer predictions of the selected model. 
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demonstrate how each variable individually affected the model, only one 
variable was changed at a time in the following computer runs. The other 
variables in each run were kept at the same values used in the selected 


model. 


5.4.1 Increase the Conductivity of the Nonintumesced Virgin Material 


Figure 5.5 shows the result of increasing the conductivity of the 
nonintumesced virgin material from 0.150 Btu/ft-h-°R to 0.199 Btu/ 
ft-h-°R. Figure 5.6 is a graph of the conductivity model for this zum 
The result of this increase is not only a rise in the peak temperature 
but also the time of maximum temperature occurs a little earlier than 


that of the experimental results. 


5.4.2 Increase the Conductivity of the Intumesced Virgin Material 


In this case, the conductivity of the intumesced virgin material 
is increased from 0.025 Btu/ft-h-°R to 0.080 Btu/ft-h-°R. Thus, the 
conductivity of the intumesced virgin is modeled as the conductivity of 
asbestos instead of air. The results of this change are seen in Figure 
5.7 with the conductivity model shown in Figure 5.8. Because the vertical 
axis of Figure 5.7 covers a larger range than the vertical axis of Figure 
5.5 or of Figure 5.3, it is at first hard to see that the result of in- 
creasing the intumesced virgin conductivity produces a maximum tempera- 
ture larger than that of Figure 5.5. Also the time of maximum tempera- 


ture is still too early. 


5.4.3 Increase the Ablative Zone Thickness 


One of the areas of question for almost all ablative materials is 
what is the temperature range in which the ablation occurs. For the case 
of Firex, the temperature range over which the intumescence occurs, and 
thus the conductivity decreases, was assumed to be about 300°R as seen in 
Figure 5.2. As the result of experimental observations, the temperature 


at which the intumescence started was about 100°F (560°R). 
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Figure 5.7. Increasing the conductivity of the intumesced virgin 
material. 
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In order to see the effects of increasing the temperature range of 
intumescence, the conductivity of the virgin Firex was modeled as seen in 
Figure 5.9. As seen in the figure, the intumesced temperature region was 
between 560 and 1060°R. The results of this change are seen in Fig- 
ure 5.10. Not only is the maximum temperature much higher than experi- 
mentally measured, but also the time of maximum temperature is much 
earlier. The problem here is that by increasing the intumescent tempera- 
ture zone, the insulative effect of the intumesced material occurs much 
slower, and thus the peak temperature of the 0.25-inch thermocouple is 


higher and earlier. 


5.4.4 Increase XB 


Figure 5.11 shows the results of increasing XB from its pre- 
viously selected value of 16,800 to 23,000. The conductivity model used 
in this run is the same one used in the selected model as seen in Fig- 
ure 5.4. Clearly, increasing XB greatly increases the thermocouple tem- 
peratures. As noted in Chapter 4, increasing XB effectively increases 
the surface temperature and this increase transmits itself through the 
rest of the material. Notice that the time of maximum temperature occurs 
later when XB is increased. Normally this effect is only associated with 
conductivity changes in the virgin material. This helps illustrate that 
in matching the experimental results with the computer program, this 


author found few independent variables. 


5.4.5 Decrease in XB 


Decreasing XB lowers the surface temperature and subsequent ther- 
mocouple temperature values. Figure 5.12 shows this effect. For this 
run XB was reduced from 16,800 to 16,000. As mentioned in Section 4.9, 
this characteristic of XB was the most important factor in finally match- 
ing the experimental results. The conductivity model for this run is 


seen in Figure 5.4. 
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Figure 5.10. Increasing the temperature range of the ablative zone. 
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Figure 5.11. Increasing the activation energy, XB. 
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5.4.6 Increase CA 


Increasing CA has the same effect as decreasing XB, but to a les- 
ser degree. In Figure 5.13, CA is increased from 9.5 x 107 tO =z Wee 
The shape of the experimental curve, ETCL, and the computer-predicted 
curve, XTCL, is the same. Increasing CA has merely reduced the relative 
temperatures especially in the region where the material is cooling down. 


The conductivity model is seen in Figure 5.4. 


5.4.7 Decrease CA 


The effect of decreasing CA can be seen in Figure 5.14. Here CA 
was increased ten times to 9.5 x Tow 24 As in the case of increasing CA, 
the shape of the curve also closely matches the experimental curve. The 
difference is that the decrease in CA has increased the thermocouple 
temperatures. Again the conductivity model for this run is seen in Fig- 


ure 5.4. 
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Figure 5.14. Decreasing the frequency factor, CA. 
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CHAPTER 6 


MODEL TESTING 


6.1 Paitroauct lon 


By altering the frequency factor, the activation energy, and the 
conductivity of the material, this author was able to adjust the comput- 
er model to almost perfectly match the experimental results at one 
thermocouple location for one burn condition. The correlation between 
the selected model and the experiment is seen again in Figure 5.3. 
Because the necessary adjustments to the computer model involved alter- 
ing the values of variables for which exact information was unavailable, 
the question exists as to whether or not the selected model can as ac- 
curately predict the thermal response of different tests on the material. 
In order to answer this guestion, several additional runs of the selec- 
ted model have been executed. These additional tests of the model were 
performed for cases in which comparative data was available from Lt. 
Marques's experiments. The next several sections will show that the 
selected model is not as accurate in predicting the thermal response of 
Firex 2373 under conditions of different specimen size, different heat 
flux duration, and at different thermocouple locations as it was in 
predicting the temperature response at the 0.25-inch thermocouple of a 
2-inch slug exposed to a 200-second burn. However, the model predictions 
are reasonably close to experimental data. In view of all the adjust- 
ments that were required to select the model, the following results are 


not surprising. 
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G22 Computer Predictions at a Different Thermocouple Location 


This author decided to compare the computer predictions of the 
temperature response at a thermocouple location of 0.50 inch from the 
slug surface. The experimental data for this comparison came from the 
same 2-inch slug of Firex exposed to a 200-second burn. Figure 6.1 
shows the results of this comparison. Clearly the match is not as good 
at this location, and although the curves have similar shapes, the com- 
puter-predicted temperatures are lower. Incidentally, the shape of the 
curves indicate that at this location only conduction is occurring and 
none of the material is ablating. The mismatch in temperatures is not 
favorable from a design standpoint because the computer predictions are 
less conservative. In spite of the mismatch, the maximum temperature 


difference at any time is only 16°F. 


The reasons for the differences in the temperature values could 
be that the intumesced conductivity iS over-modeled, that too much heat 
is allowed to reradiate from the surface by improper emissivity inputs, 
or that the boundary condition which exists at the backface of the test 
slug iS improperly specified in the program. The computer program simu- 
lates an adiabatic boundary condition at the slug backface, and although 
Lt. Marques's experimental apparatus strove to provide this same boundary 
condition, this author believes that there could actually be some heat 
flowing into the slug as a result of the rise in environmental tempera- 


ture which occurs in the burning hood during a 200-second burn. 


6,5 Computer Predictions for a Different Burn Time 
Raathsteta “thenlbadintser palmate atcattate heat cheatin atic aie dee ea GSN SI SNS 


Figure 6.2 shows the comparison of thermocouple temperatures at 
0.25 inch for a 45-second burn of a 2-inch Slug of Firex. Although these 
results compare more favorably than those shown in Figure 6.1, again, 
the computer-predicted temperatures are Slightly lower than those obser- 
ved experimentally. In this case the maximum temperature difference is 


13°F. The reasons for this mismatch are the same ones as those noted in 
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Figure 6.1. Test of selected model. 200-second burn on 2-inch slug of 
Firex 2373. Experimental, ETCL, and computer predicted, XTCL, 
thermocouple locations are 0.50 inch from the slug surface. 
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Figure 6.2. Test of selected model. 45~second burn on a 2-inch slug of 
Firex 2373. Experimental, ETCL, and computer predicted, 
XTCL, thermocouple locations are 0.25 inch from the slug 
surface. 
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the previous section. One point to note is that the 45-second burn 
equates to an integrated heat flux of 450 Btu/f£t-, while the 200-second 
burn is an integrated heat flux of 200 Btu/ft>. In LCDR Leary's work, 

he discusses that, in general, intumescent ablators are more effective 

in situations where the integrated heat fluxes are less than 1000 een EES 
and charring ablators are more effective above 1000 Btu/ft?. ibe Iavedesc! 

of this observation, perhaps the computer model of Firex should have been 
matched on the 45-second burn, but this author feels the results of the 
longer 200-second burn are more reliable. With a little experimenta- 
tion, the author discovered that if XB is increased to 19,000, the com- 
puter predictions are much closer to the experimental data; but then the 
model doesn't match as well for the case of the 200-second burn. Again, 
the shape of these curves indicates that the 0.25-inch thermocouple is 


mia Conduction only zone. 


6.4 Computer Predictions for a Different Size Specimen 


The temperature data from the tests performed to rank candidate 
ablative materials to replace Firex was for a thin 0.1875-inch wafer of 
Firex which was burned for 45 seconds. The data Lt. Marques recorded 
was for a thermocouple attached to an aluminum backing plate which placed 
the thermocouple 0.25 inch from the wafer surface. Because the computer 
program does not allow the placement of thermocouples in any backup mate- 
rial, the closest any computer thermocouple could be placed was at a dis- 
tance of 0.1875 inch from the wafer surface. The results of this com- 
parison are seen in Figure 6.3. The shape of the curves is well matched, 
and aS expected, the closer thermocouple, the one at 0.1875 inch, has 
the highter temperatures. It appears that if bith thermocouples were 
at the same location, the match may actually be quite good. Not too many 
conclusions can be drawn from this comparison, except to say that the 
selected Firex model appears to be fairly good at predicting the tempera- 


ture responses of different size specimens. 
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CHAPTER 7 


NAVAL APPLICATIONS OF INTUMESCENT ABLATIVE MATERIALS 


TaN rnc roauc tion 


Ablative materials have been primarily used in man's pursuit of 
space exploration, but now these materials are beginning to find applica- 
tions in the field of naval engineering and many other conservative dis- 
Cciplines. Intumescent ablators are being used, in fact, in several types 
of applications onboard combatant ships of the U.S. Navy. They are being 
used primarily as protective coatings to retard the spread of fire, to 
insulate munitions from the generated heat of fires, and to protect 
structural members of a ship from the flame damage of ship-launched mis- 
Siles. The purpose of this chapter is to summarize the use of intumes- 
cent coatings on board U.S. Navy ships. Much of the information for this 
chapter comes from the work of my colleague, LCDR James Leary, whose 
thesis, Reference (2), entitled Characteristics of Various Types of 
Ablative Materials with Associated Naval Applications, covers this entire 


topic in much more detail. 


a2 Intumescent Ablative Materials as Fire-Retardant Coatings 
feet ~6LNntrodguction 


Shipboard fires have continually presented hazardous circumstances 
for a ship and her crew because of their ability to quickly spread out of 
control and because of the intense heat generated which can self-ignite 
stored munitions. Shipboard fires are even more severe on modern comba- 


tant vessels which carry large amounts of weapons and large loads of 
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highly volatile fuel. Also, as demonstrated in the Falkland Islands War, 
many of the alloys currently used in combatant ships burn at such high 
temperatures when ignited that conventional fire-fighting techniques are 


largely inadequate in controlling these metal fires. 


Some of the most recent tragic fires experienced by U.S. Navy 
ships have been the 1967 flight deck fire on the U.S.S. Forrestal, the 
1969 flight deck fire on the U.S.S. Enterprise, and the fires resulting 
from the 1975 collision between the U.S.S. Kennedy and U.S.S. Belknap. 
All of these fires involved loss of life and significant degradation in 
combat readiness. The worst case was the U.S.S. Belknap which spent 
three years being repaired from the collision and fire damage she in- 
curred. In most of these fires, the fire-fighting teams had insufficient 
time to control the fires in their early stages, and in all of them, the 
self-ignition (cook-off) of ammunition was directly responsible for in- 
creasing both the fire's severity and the complexity of the fire-fighting 


solution. 


7.2.2 Research Effort 


The result of the first two aircraft carrier fires was a concen- 
trated research effort into finding a coating which could be applied to 
munitions to decrease the tendency of the munitions to self-ignite. 
Testing conducted at the Naval Weapons Center, China Lake, California 
showed that when different munitions and missile warheads were exposed to 
Simulated aircraft carrier deck fires, the unprotected munitions and 
warheads exploded within three minutes of exposure to the fire. In com- 
parison, fire-fighting teams today normally require at least five minutes 


to organize, set boundaries, and bring a fire under control. 


Testing of various ablative coatings at China Lake determined that 
an intumescent ablative coating when applied to munitions could increase 


(2 


the average time for self-ignition to at least 8.5 minutes. Inter- 


estingly enough, the intumescent coating selected from these tests was 
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Firex, the same material currently used to insulate the inertial measure- 
ment unit discussed in the preface of this thesis. To coat munitions, 
Firex is applied with normal spray equipment and not molded as it is in 
the IMU application. The beneficial fire-retardant effects of Firex 
proved to be so good that it has been used to coat the pipes and valves of 
the aviation fuel handling systems on aircraft carriers. It is also being 
used on carriers to coat selected bulkheads in areas where an aviation 
fuel fire might occur. The use of Firex was practically tested in the 
U.S.S. Kennedy - U.S.S. Belknap collision. The U.S.S. Kennedy, which had 
the protective coating, was able to quickly contain its fire and continue 
along on its assigned mission. The U.S.S. Belknap, on the other hand, 
which did not have the coating, suffered major damage as her fire- 
Fighting crews were not afforded the extra time the coating provides to 


eoncrol the fire. 


Basic research into shipboard fires is being conducted under a 

Navy contract by The Center for Fire Research at the National Engineering 
Laboratory, National Bureau of Standards. In their work, the center has 
developed the concept of flashover. Flashover is defined as the condi- 
tion when thermal radiation levels at a bulkhead become high enough to 
Simultaneously ignite combustible materials within a pear trent aes 
The condition of flashover equates to a bulkhead temperature of approxi- 
mately 1200°F and a radiant heat flux on the order of 6 Ben ee. By 
using intumescent paints on bulkheads, the center has been able to demon- 
strate that the flashover condition can be delayed substantially when the 
coated bulkhead is exposed to a fire. In some cases the painted bulk- 
heads do not experience the flashover condition until ten minutes after 
the bulkhead becomes hot, thus allowing shipboard fire-fighting teams the 


necessary time to extinguish a fire. For results on flashover testing of 


specific paints see Table 12 of Reference (2). 


An additional benefit to using intumescent coatings on selected 


ship bulkheads is that they greatly reduce the overall generation of 


Os 


carbon monoxide, hydrogen cyanide, hydrogen chloride and smoke in com- 
partment Bisse, 2° A disadvantage to these coatings is that they do 
present a slight weight penalty. This is because in order to be fully 
effective, an intumescent coating must be applied to a thickness of 

0.025 cm, while normal decorative paint is only applied to a thickness of 
approximately 0.010 cm. The density of an intumescent coating and a 
decorative paint are about the same and the weight penalty in using an 
intumescent coating instead of a paint is about 0.03 sy BES As noted by 
LCDR Leary, this weight penalty appears small in considering the enormous 
benefits an intumescent coating provides. However, this does not mean 


that every bulkhead in a ship should be coated with an intumescent paint. 


7.2.3 Current and Future Uses 


As mentioned previously, intumescent coatings are used in protect- 
ing all heat-sensitive munitions. They are also used in all aircraft 
carriers in the aviation fuel systems, as well as on selected bulkheads. 
Submarines use them as both a thermal and acoustic insulation in the 
interior of their hulls. A new design mine countermeasures ship (MCM) 
which has a wooden hull uses an intumescent paint in the entire engine- 


room. 


Future uses of fire-retardant intumescent coatings include their 
use in the offshore platform industry to protect members of the platform 
from structural damage in the case of platform fires. Hopefully, 

U.S. Navy surface combatant ships other than aircraft carriers will begin 
to incorporate intumescent coating in areas where exposure to fuel fires 


is highly possible. 


73 Intumescent Ablative Materials Used to Protect Shipboard Struc- 
tures from Missile Exhaust Gases 
The advent of missile-launched weapons has made it necessary to 
specially protect those areas of the ship which are exposed to the hot 
exhaust gases from launched missiles. The problems associated with expo- 


sure to these hot gases are: thermal expansion causing possible failure 
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of missile launching mechanisms, thermal fatigue of the heated hull 
structure, and unwanted heat transfer through decks and bulkheads to 
various spaces in the ship. Ablative coatings, particularly intumescent 
coatings, have proven successful in providing protection from the hot 


missile exhaust gases onboard U.S. Navy ships. 


A major consideration in picking an ablator for this shipboard 
application, aside from its insulative capability, has been its ability 
to be applied via troweling or its trowelability. This is a concern 
because any damage to a missile ablative system must be repairable at 
sea. Also note that, in general, a ship is required to apply a new ab- 
lative coating after firing its entire magazine. Thermal testing of 
candidate materials to be used on ships was performed under the responsi- 
bility of the Naval Surface Weapons Center. The results of the test 
indicated that an intumescent ablator, Flexfram 605, was the best mate- 
rial. The integrated heat flux used in the tests was less than 1000 Btu/ 


oS As a 


2 : eee 
ft which is within the normal range of an intumescent ablator. 
result of these tests, Flexfram 605 has become the standard ablative 
coating for use on conventional “above main deck" shipboard missile 


launchers. 


New launcher systems are under development which will allow a ship 
the capability to ripple-fire several missiles at a rapid pace. The heat 
load involved in this type of operation is much too high to be handled by 
an intumescent ablator. Therefore, different types of ablators are being 
examined to provide protection at these higher heat loads. Although 
subliming ablators (carbon tiles) looked promising, replaceable charring 
ablative tiles have been selected for use in the new vertical launch 
system (VLS). These particular tiles can be easily replaced by the 


ship's crew when it becomes necessary. 


7.4 Computer Modeling 


Ultimately, the selection of any shipboard ablative protection 


system will depend on the results of tests which are designed to simulate 
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the exact thermal environment the system will be exposed to. However, a 
computer model like the one presented in this thesis can serve as a use- 
ful tool in quickly screening candidate materials and determining which 
ones should be later tested. Also once a material is selected, a compu- 
ter model of the material is extremely helpful in predicting the effects 
on any future design changes and in predicting the material response long 
after the testing facilities are dismantled. Perhaps in the not too 
distant future a model of the ablative protection system could be in- 
cluded onboard a ship central computer to be used in damage control 


calculations. 
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CHAPTER 8 


CONCLUSIONS AND RECOMMENDATIONS 


8.1 Conclusions 


The charring ablation computer program, STAB II, can be success- 
fully modified to model the thermal response of an intumescent ablator. 
Although this thesis only modeled one intumescent ablator, Firex 2373, 
the information presented in this work should make the modeling of any 
other intumescent ablator a straightforward process. In order to use the 
STAB II program to model an intumescent ablator, careful selection of the 
material's conductivity values is required. As previously stated, since 
STAB II does not incorporate an algorithm to account for the surface 
swelling of an intumescent ablator, the inputted conductivity model at- 
tempts to compensate for this deficiency. Thus, the conductivity values 
necessary to make the model predict experimental results are really "ef- 


fective" conductivity values. 


The results presented in Chapters 5 and 6 demonstrate that the 
selected model for Firex 2373 is extremely accurate in predicting the 
temperature response of Firex at one particular thermocouple location. 
This model is not, however, as accurate in predicting the temperature 
responses at other thermocouple locations. Also, the model is seen to be 
moderately affected by the size of the test specimen inserted into the 
program. Several thoughts on these inaccuracies are included in the 


following paragraph. 


The values selected for Arrhenius equation coefficients may, in 


fact, be incorrect; although the literature has suggested that the chosen 


10% 


values were clearly within reason. However, obtaining the exact values 
of these coefficients is important, because even small changes in either 
the activation energy or the frequency factor can produce significant 
changes to the model's predictions. Another problem may be that the 
conductivity values used to account for the intumescence may be over 
modeled. In other words, the “effective” conductivity of the intumesced 
virgin material may really be too low. Selecting the proper backup ma- 
terials for the computer program is still another problem as is modeling 
the boundary condition at the backside of each test specimen. Experi- 
mentally, it is very difficult to ensure that only one dimensional heat 
flow is occurring in the test specimen and it is nearly impossible to 
perfectly insulate the backside of the test specimen. Lastly, since only 
a few tests could be run on Firex 2373, normal experimental variations in 
the data made it very hard to select the temperature values to be used 


for the computer matching. 


Ideally, the chosen model can predict, with the same degree of 
accuracy, the temperature response of the material at any thermocouple 
location. Unfortunately, because of the many uncertainties mentioned 
above, the present model of Firex 2373 is unable to do this.. It appears 
that in using the STAB II program to model Firex and other intumescent 
ablators, the program will have to be altered separately to predict the 
thermal response at any specified depth or for any specimen size. The 
model will, of course, always have to be adjusted to experimental data; 
but once this is done, the model can serve as a tremendous design tool in 
predicting the thermal response of the material to different heat flux 
environments. This author has demonstrated that the STAB II program is 
relatively simple and inexpensive to run. This makes it an ideal candi- 
date for incorporation into a larger program such as the IMU simulation 


program currently being used at The Charles Stark Draper Laboratory. 


A specific conclusion is that the material, Firex 2373, seems to 
be quite effective in insulating the inertial measurement unit from the 


exposure to a uniform heat flux of 10 Aen /eeoee for periods of 45 and 


108 


200 seconds. Intumescent ablators are, in general, extremely effective 
insulators in low heat flux applications. These types of ablators are 
being used in several industrial applications and in an addendum chapter 
to this thesis, Chapter 7, the naval applications of intumescent ablators 
are described. Intumescent ablators have been proven to be very success- 
ful in insulating strategic parts of a ship from the heat generated by 
shipboard fires. Chapter 7 argues for the use of more intumescent abla- 
tors onboard U.S. Navy ships, particularly for use on board small comba- 
tants. One final note is that from the results of the three intumescent 
ablators tested by Lt. Marques, it appears that the inverse of the virgin 
diffusivity may be a way to rank the effectiveness of an intumescent 
ablator. That is, the lower an intumescent's diffusivity, the more effec- 


tively it insulates a piece of equipment from low heat fluxes. 


8.2 Recommendations 


The following recommendations are made to improve the use of the 


STAB II program and to enhance the results of this thesis: 


C1) Pepsomm more = cOnauctivity testing on Firex 2373, particu- 
larly of an intumesced piece. Also, the char of Firex 
should be tested for conductivity even though this may 


prove to be quite difficult. 


(2) Perform thermogravimetric, TGA, tests on Firex to get bet- 
ter bounds on the values of the frequency factor and the 
activation energy. This testing can be performed at Draper 
Laboratory. Knowing these Arrhenius coefficients could 
really change the procedures used to adjust the computer 


model. 


(3) In order to gain a better understanding of the model, more 
work should be done in matching experimental data at dif- 
ferent thermocouple locations. Also more testing of 
Firex 2373 should be performed to provide a better data 


base. 
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(4) 


(5) 


(6) 


(8) 


(9) 


More computer experimentation is necessary to determine the 
effects various backup materials and different boundary 


conditions have on the computer predictions. 


More intumescent ablators should be experimentally tested 
and then the computer program should be used to model these 
different intumescents. The results of this effort may 
produce trends from which stronger conclusions may be drawn 
about intumescent ablators. As postulated by Professor 
Warren M. Rosenhow, perhaps the conductivity models of all 
intumescent ablators will have the same shapes. This result 


would be significant. 


The surface energy balance in the program needs to be cor- 
rected to prevent surface temperature oscillations. This 
can be done by either inserting a separate loop in the 

program which would perform an iterative energy balance at 
the surface or by performing a Newton-Raphson integration 
at the surface. Note that Dr. Curry felt the later option 


could be part of a doctoral thesis. 


The STAB II program should be adjusted to allow more than 
one case to be executed on each run of the program. The 
program has this capability at NASA/Houston and this author 
feels the problem is in the subroutine RESET. This subrou- 
tine was not included in the tape and Dr. Curry felt it was 
not important but it may be very important for running 


multiple cases. 


It would be very beneficial to add an internal plotting 
routine to the program which could be run when desired. 
The DISPLAY plotting routine on the CSDL computer system 


could be used for this. 


Ultimately, a new computer program or subroutine needs to 


be devised to allow for the surface swelling of an 


116 


intumescent ablator. This task may prove difficult, but 


researchers Henderson, Moore, and Tant are presently work- 


ing on such a program at the Naval Surface Weapon Center, 


Dahlgren, Virginia. 
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APPENDIX 4 


SUBROUTINE SUMMARY 


The purpose of this Appendix is to briefly describe the function 
of each subroutine in the STAB II program. The information for this 
Appendix is largely from Reference (8). More detailed information con- 
cerning the specific calculations performed in each of the subroutines 


is available in Chapter 6 of this reference. 


ler MAIN -—- The main routine is the program driver and is described by 


the logic diagram, Appendix F. 


Ze SUBROUTINE ABLATE - This subroutine determines the pyrolysis gas 


generation rate from the ablating nodes. 


ae SUBROUTINE ABL2 - This subroutine determines the pyrolysis gas 
generation rate when nodal subdivision is used. The equations are 
the same as in ABLATE except that the calculations are for each 
subnode instead of each node. The subnode contribution is summed 


and values for each node are returned. 


ae SUBROUTINE ALLMOL - This subroutine calculates local density and 
local temperature as a function of entropy and local enthalpy. 


The routines used are MOLP, MOLR, MOLT, and MOLA. 


Se SUBROUTINE ATMOS - ATMOS uses subroutines ATMOS3 and ATSEAS to 
calculate the free stream temperature, pressure, and density from 
one of the ten possible atmospheric models as a function of 


altitude. 


d2 


10. 


a. 
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i. 


14. 


i. 


SUBROUTINE ATMOS3 - This subroutine calculates the free stream 
pressure, density, and temperature for the 1962 standard atmos- 


pheric model. 


SUBROUTINE ATSEAS - ATSEAS calculates the free stream pressure, 


density, and temperature for the nine nonstandard atmospheric 
models. Note in the application of STAB II for this thesis, this 
subroutine was never called since the 1962 standard atmospheric 


model was always used. BDAT is called by ATSEAS. 


SUBROUTINE BDAT - This subroutine loads the desired atmospheric 


table when called by ATSEAS. 


SUBROUTINE BET - The temperature at each thermocouple location is 


determined by a third-degree Lagrangian polynomial curve fit of 
the temperature profile. BET calls DISCT3, which in turn calls 
DISSER and LAGRAN. 


SUBROUTINE COEFF - The calculation of the tri-diagonal coefficient 


matrix used in the temperature solution is performed by COEFF. 
This subroutine calls PROP for the thermophysical properties of 
the ablator. 


SUBROUTINE COKE - The mass flow reduction rate due to coking is 


calculated in this routine. This subroutine was never really 


called in the application of the program to this thesis. 


SUBROUTINE COMMOL - This is a specialized double interpolation 


routine used by the Mollier Fits subroutines. 


SUBROUTINE DISCOT - DISCOT determines the viscosity of air as a 


function of local temperature. This routine calls UNS, DISSER, 


and LAGRAN. 


SUBROUTINE DISCT3 - This subroutine is used as a driver to call 


DISSER and LAGRAN. 


SUBROUTINE DISSER - This subroutine determines the array points to 


be used by LAGRAN for polynomial interpolation. 
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SUBROUTINE DOUBLE - DOUBLE is used by the table input package to 


do the interpolation for functions of two variables. 


SUBROUTINE DPDX - DPDX calculates the internal pressure distribu- 


tion. For this thesis, this option was not used; therefore, the 


subroutine was not called. 


SUBROUTINE FINDS - This subroutine returns the total pressure, 


total enthalpy, and entropy as a function of free stream tempera- 


ture, density, pressure, and velocity. FINDS calls MOLS and MOLR. 


SUBROUTINE INDATA - This subroutine initializes many variables and 


reads the NAMELIST variables. 


SUBROUTINE INWRIT - INWRIT prints the input data and local proper- 


ties. 


SUBROUTINE ISOTHM - Linear interpolation is used to calculate the 


isotherm and density ratio penetration depths. 


SUBROUTINE LAGRAN - This subroutine performs a Lagrange polynomial 


curve fit. 


SUBROUTINE MAINDA - This is really not a subroutine but a block 


data statement which assigns values for most of the variables 
associated with the backup materials. This data statement also 
assigns the conductivity and specific heat values for both the 
virgin material and the char. Originally, this data was included 
in the MAIN member of the program, but in order to satisfy VS FOR- 
TRAN requirements, a separate block data member called MAINDA was 


created. 


SUBROUTINE MOLA - Mollier Fits subroutine that provides the local 


speed of sound. MOLA calls TESTH and COMMOL. 


SUBROUTINE MOLH - Local enthalpy as a function of temperature and 


local pressure is determined by this Mollier Fits subroutine. 


MOLH calls COMMOL. 
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SUBROUTINE MOLP - This Mollier Fits subroutine returns the total 


pressure. MOLP calls TESTH and COMMOL. 


SUBROUTINE MOLR - This Mollier Fits subroutine determines the 


local density. MOLR calls TESTH and COMMOL. 


SUBROUTINE MOLS - MOLS provides the local entropy. This Mollier 


Fits subroutine calls TESTH and COMMOL. 


SUBROUTINE MOLT - Local temperature is returned by this Mollier 


Fits subroutine. MOLT calls TESTH and COMMOL. 


SUBROUTINE OXIDAT - This subroutine calculates the heat generated 


due to exothermic oxidation of the char surface. It is assumed 
that oxygen and carbon react to form carbon monoxide only. The 
heat fluxes were too low in our application to ever have oxidation 


of the char. 


SUBROUTINE PROP ~- Subroutine PROP is called by COEFF and returns 


the thermophysical properties of the ablator and backup structure. 
Linear interpolation is used to obtain the properties of each 

node. The properties of the ablator are input as constants or as 
functions of one or two variables, while the backup material pro- 


perties are input as functions of temperature only. 


SUBROUTINE RECESS ~- The char mass removal rate and the surface 


recession rate due to char removal is determined by RECESS. 


SUBROUTINE RITE - This subroutine outputs the thermocouple loca- 


tions and their corresponding temperatures in tabular form. 


SUBROUTINE SINGLE - This subroutine is used by the table input 


package to do the interpolation for functions of a single variable. 


SUBROUTINE SUBL - The surface mass loss rate due to sublimation of 


carbon is computed by SUBL. In our applications, the surface 


temperatures were never great enough to cause carbon sublimation. 


SUBROUTINE SWUFT - SWUFT determines the forward timestep tempera- 


tures by solving the system of equations whose coefficient matrix 


was calculated by COEFF. 
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46. 


SUBROUTINE TBKIND - Table input subroutine used to determine the 


interpolation options and setup the arrays to SINGLE and DOUBLE. 


SUBROUTINE TBLSET - TBLSET sets the indices used in the table in- 


put package. 


SUBROUTINE TBLST - This subroutine is the table input package 


driver for storing and writing table data. 


SUBROUTINE TBLWRT - This subroutine writes the table input data. 


SUBROUTINE TBLSHUV - TBLSHUV deletes unused tables and realigns 


needed tables in storage. 


SUBROUTINE TEMPD - The initial temperature distribution in the 


ablator and backup structure 1s provided by TEMPD when an arbi- 
trary distribution is not input. Note an arbitrary distribution 


was never used in the input for this thesis. 


SUBROUTINE TESTH - TESTH checks to see if the independent variable 


exceeds the range of the Mollier tables, which are built into 


subroutines MOLA, MOLH, MOLP, MOLS, and MOLT. 


SUBROUTINE TURF - Subroutine TURF calculates the local properties 


and the turbulent heating factor for each trajectory point. 


SUBROUTINE UNITRP - This subroutine is a specialized interpolation 


routine used by the Mollier Fits package. 


SUBROUTINE UNS - UNS is used by DISCOT to set up index parameters 


used in the viscosity calculation. 
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APPENDIX C 


COMPUTER PROCEDURE ITEMS 


a6 


EDIT --- RAS1810.MCOMP .CNTL 
COMMAND 


eeeekKE 


0000 10 
000020 
000030 
000040 
000050 
000060 
000070 
000080 


000090 // 


000 100 


COLUMNS 001 072 
SCROLL ===> HALF 
REKEEKEKREKREEKRAKRKRKRERKRAKEKEKRKRKRKERKRERKEHD TOP DF DATA EKREKRKRHKREKREKARARREKREKREKEKEKRKEKKEKEDR 
//RAS1810F JOB *,RAS1810,REGION=2048K, TIME=1,PRTY=1, 

//  MSGCLASS=H,MSGLEVEL=(2, 1), NOTIFY=RAS1810 

/*JOBPARM LINES=999,COPIES=001 

¥7* 

1 bs 

//MAIN EXEC XF4LIB,NOPREP=, 

Jf NONAME=, TYPE=FDRTV, CERROR=12, 

// CPARM=’OPT(0O),FLAG(I),’, 

UIDENT=’RAS1810.STABII’, 

// PPARM=’R=,A=,C=,P=@*0123456789’ , 


s=s> 


000110 // LPARM=’’,MEMBER=MAIN 

000120 //* 

000130 //* tn St 2 

EERE KEKE EKEKEKERERKEERER RED BOTTOM OF DATA FREER EKER ERK ERE KEKE 


EDIT --- RAS1810.MDCDMP.CNTL 
COMMAND ===> 


KEKEKE 


0000 10 
000020 
000030 
000040 
000050 
000060 
000070 
000080 
000090 
000 100 
000110 
000120 
000 130 


keke 


COLUMNS 001 072 
SCROLL ===> HALF 


TETTTTETTCTCLE CTT TCT TDP DF DATA REE KKK EK KRE ES 


//RAS1810F JOB *,RAS1810,REGIDN=2048K, TIME=1,PRTY=1, 


//  MSGCLASS=H,MSGLEVEL=(2,1),NOTIFY=RAS 1810 
/*JOBPARM LINES=999,COPIES=001 

//* 

//* 

//MAINOA EXEC XF4LIB,NOPREP=, 

// NONAME=, TYPE=FORTV, CERROR=12, 


// CPARM=‘OPT(O),FLAG(I),’, 

1 UIDENT=’RAS1810.STABII’, 
// PPARM=’R=,A=,C=,P=@*0123456789' , 

ig} LPARM=’’ ,MEMBER=MAINDA 
be 
bs 
REERERREKREKEREKKEKRERKEEEKREK KEKE BOTTOM OF OATA 


RHEE EERE KER KEER EEE 


aS 


----- LINK EXECUTABLE LOAD MOOULE - OEFINITION -------------------------------- 
COMMANO INPUT === 
COMMANDS ARE: BLANK (TO SET UP LINK) OR GO (TO SKIP REMAINING PANELS) 


PROGRAM NAME ===> STABII 

PRIMARY LINK LIBRARY: 
PROJECT ===> RAS1810 
LIBRARY ===> STABII 
TYPE ===> LOAO 


PRIMARY SOURCE LIBRARY: 


TYPE ===> FORT 
PRINT OUTPUT: 
CLASS zsz=> 0 - A (PRINTER), O (OELETE), H (HOLD), 
* (TERMINAL), 7 (NONE) OR BLANK (LIST OATASET) 
LIST ID ===> - BLANK FOR LIBRARY VALUE, NOW STABII 


2 


eee LINK EXECUTABLE LOAO MOOULE - LIBRARY/OPTIONS --- LIB LIST MEMBER APPLIEO 


LOAO LIBRARY OSNAME (WITHOUT MEMBER NAME): 


TARGET === 


“RAS 1810.PGM.LOAO’ PROGRAM: STABII 


LINKAGE EOITOR OPTIONS - TERM ANO LIST ARE ALWAYS PROVIOEO 


===> MAP,SIZE=( 400K, 100K) 
SECONOARY LINK LIBRARIES: (PRIMARY LIBRARY IS ALWAYS FIRST) 
LINK1 ===> ’SYS1.FORTOCG’ 
LINK2 ===> 
LINK3 ===> 
LINK4 ===> 
LINKS a 
FORTRAN ===> VS - YES, VS OR NO 
PL/I ===> NU - YES (USUAL), TASK (MULTI-TASKING), CMIX OR NO 
IMSL ===> NO - SP (SINGLE), OP (QOUBLE) OR NO 
SCIPACK ===> NO - LIN (LINPACK) OR NO 
LOCAL ===> NO - YES (PROGLIB PLUS FORTDCG ANO/OR PLISUBS) 
PLOTTING ===> NO - YES (0.1.G. ONLY), O (OISSPLA ANO 0.1I.G.), OR NO 


CONTROL STATEMENT 
PRIMARY: 


ANO LIBRARY/OPTIONS MEMBERS LAST STOREO: 04/01/83 - 17:49:19 
“RAS 1810.STABII .LOAO’ BY: RAS1810 
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LIBRARY/OPTIONS MEMBER (LAST PANEL/ABOVE): ’RAS1810.STABII.FORT( 4STABII )’ 
CONTROL STATEMENT MEMBER (OISPLAYEO BELOW): ‘’RAS1810.STABII.FORT($STABII)’ 
STORE ===> YES - YES OR NO (IN ABOVE MEMBERS) 
LINKAGE EOITOR CONTROL STATEMENTS: (SETSSI ALWAYS PROVIDED) 

===> INCLUOE SYSLIB(MAIN),SYSLIB(MAINOA) 

===> ENTRY MAIN (STATEMENT GENERATEO 02/11/83) 

===> NAME STABII(R) 

ss >> 

ss=s=> 

sss> 

sss> 

sss> 


RECOMMENOEO CONTROL STATEMENTS: (GENERATED IF NO INPUT MEMBER) 
===> INCLUOE SYSLIB(STABIT) 
===> ENTRY STABII 
===> NAME STABII(R) 
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//RAS1810A JOB *,RAS1810, TIME=(0,20),REGION=512K,PRTY=1, 
// NOTIFY=RAS1810,MSGCLASS=A 
is haa 
//RUN EXEC XCALL,PROG=STABIT, 
LDAD=‘RAS1810.PGM. LDAD ‘ 
we 


//G.FTOSFOO1 DO DISP=SHR,OSN=RAS1810.INPUT.OATA 
We 

//G.FT20FO0O1 DD SYSOUT=* 

/* 


//RAS1810A JOB *,RAS1810, TIME=(0,20),REGION=512K,PRTY=1, 
Td NOTIFY=RAS1810,MSGCLASS=A 
Lie 
//RUN EXEC XCALL,PROG=STABII, 
LOAO=’RAS1810.PGM.LOAO’ 
i [fs 


//G.FTOSFOO1 DD DISP=SHR,DSN=RAS1810. INPUT .DATA 
es 
//G.FT20FO01 O00 OISP=OLD,OSN=RAS1810.OUTPUT .OATA 
/* 


AES ES, 


os 


AT 16:01:47 ON 04/04/83 - RAS1810.PLOT4.DATA 


°- 
20. 
40. 
60. 
BO: 
100. 
1207 
140. 
160. 
180. 
200. 
220. 
240. 
260. 
280. 
300. 
320. 
340. 
360. 
380. 
400. 
420. 
440. 
460. 
480. 
500. 
220. 
540. 
560. 
580. 
600. 


Loe eke ek eke eet e ie leVeoseveVetet=sievekewe eles (eee) (ee) (s)(e 


-150E+O2 
. 780E +02 
=S30ETOZ 
.880E +02 
=91CE+O2 
. 105E +03 
~111E+03 
2117E+O3 
HIZSETOS 
. 128E+03 
.134E+03 
.138E+03 
14 2E+03 
. 144E+03 
.145E+03 
. 145E +03 
. 146E+03 
. 145E+03 
. 145E+03 
. 144E +03 
. 143E+03 
. 142E+03 
21918 +O3 
. 140E+03 
- 139E*+O3 
. 138E+03 
wISTESOS 
s136E+O3 
. 136E+03 
~l3oE+Og 
.134E+03 


oooooooooo°oc°oce°ce°o0cdccedcoo0o°o0°o000o000o0o00oo°o 


s7 OOETOZ 
FTG IEtO2 
.802E+02 
.865E +02 
.941E+02 
- 1O2E+O3 
S1TO9E+OS 
»117E+O03 
eizoetOs 
sI29E+O3 
I SOE*OS 
~I39EFOS 
.143E+03 
. 145E+03 
- 146E+03 
. 146E+03 
. 146E+03 
.145E+03 
. 144E+03 
.143E+03 
- 142E+03 
.141E+03 
. 140E +03 
s1S9E4Cs 
.138E+03 
PISTEtOS 
-136E+03 
-134E+03 
- 133E+03 
-132E+03 
pieveErO3 


Ine 


APPENDIX D 


SAMPLE INPUT 


ee 





INPUT... DATA 


Cite 
MAY 1, 1983///2 INCH SLUG OF FIREX 2373///THREE AIR BACKUPS(@ 1.00")/// 
SAMPLE RUN OF THE ADOPTED MODEL FOR INCLUSION IN APPENOIX E OF THESIS 


K(V) = .150 AT LOW TEMPS/ K(V) = .025 AT HIGH TEMPS 

& INPUT 

ABLC = 0.47, ABLK = .108, CHARC = 0.40, CHARK = 0.065 

EMV = .99, HV = 2000., PLPTX = 1., EMC = 0.90 

MMM = NTRAPT = 5, NXTCL = 5 


2, NMB = 3, NP = 30, NREC = 


3, 
RHOV = 84.2, TABL = 660., TCHAR 860., TLIM = 600.2 VE5= 2,00 


XTCL 062 9no 1206-2000 dO UO. AG 20000., CA = 9500000000. 
OELTT = 1., IPRC = 20, NPTT = 1, TTABLE = O. 

ALT = 0. ,0.,0.;07..0. 

OCONC .="©0.,0..0..0..0. 


ORAD =A10., 165,05, 0.,0. 

VEU <=) 10... 103 4731085 1907510. 
TIME.-=2:0.., 200. 20125400 =, G00. 
& ENO 

mache sels 
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APPENDIX E 


SAMPLE OUTPUT 


iso 





INTERPOLATEO VARABLES UNOER CONTROL OF TBLPAK 


THERMAL CONOUCTIVITY(R) XKREAC F(CHAR ANO VIRGIN VARIABLE PROPERTIES) 


SPECIFIC HEAT(R) CPREAC F(CHAR ANO VIRGIN VARIABLE PROPERTIES) 
THERMAL CONOUCTIVITY(C) XKCHR SEE TABLE NO 99998 
SPECIFIC HEAT(C) CPCHR SEE TABLE NO 99997 
THERMAL CONOUCTIVITY(V) XKVRG SEE TABLE NO 99996 
SPECIFIC HEAT(V) CPVRG SEE TABLE NO 99995 
SPEC HEAT PROLYSIS GAS CPGAS CONSTANT VALUE 0.50 BTU/LBH-R 
HEAT OF PYROLYSIS HV CONSTANT VALUE 2000.00 BTU/LB 
HEAT OF SUBLIMATION HSUB CONSTANT VALUE 12000 .00 BTU/LBM 
TABLE NO 99998 THERMAL CONDUCTIVITY(C) VS TEMPERATURE 
TEMPERATURE THERMAL CONDUCTIVITY(C) 
OEG-R BTU/FT-HR-R 
460.0000 0.0460 
760.0000 0.0700 
1460 .0000 0.0700 
1860.0000 0.1460 
2060 .0000 0.2800 
2660 .0000 0.4970 
2860.0000 0, 5250 
3710.0000 0.7600 
3960 .0000 0.7950 
4260.0000 0.7950 
4860.0000 0.6550 
5010.0000 0.5700 
5060. 0000 0.3030 
6000 . 0000 0.0600 
TABLE NO 99997 SPECIFIC HEAT(C) VS TEMPERATURE 
TEMPERATURE SPECIFIC HEAT(C) 
OEG-R BTU/LB-R 
1460.0000 0.3700 
2460. 0000 0.4120 
4960.0000 0.4120 
5460.0000 0.4600 
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TABLE NO 99996 THERMAL CONDUCTIVITY(V) VS TEMPERATURE 


TEMPERATURE THERMAL CONOUCTIVITY(V) 
DEG-R BTU/FT-HR-R 
460.0000 0.1500 
560.0000 0. 1500 
660.0000 0.1080 
760.0000 0.0670 
860.0000 0.0250 
960.0000 0.0250 
1460 .0000 0.0250 
TABLE NO 99995 SPECIFIC HEAT(V) vs TEMPERATURE 
TEMPERATURE SPECIFIC HEAT(V) 
OEG-R BTU/LB-R 
0.O0000E +00 0.4700 
560.0000 0.4700 
660.0000 0.4700 
760.0000 0.4700 
860.0000 0.4700 
960.0000 0.4700 
1060.0000 0.4700 
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MAY 1, 


STAB 11 CHARRING ABLATION PROGRAM 


1983///2 INCH SLUG OF FIREX 2373///THREE AIR BACKUPS(@ 1.00")/// 


SAMPLE RUN OF THE ADOPTED MODEL FOR INCLUSION IN APPENOIX E€ OF THESIS 


K(Vv) = 


.150 AT LOW TEMPS/ K(V) = 


INPUT AND INITIALIZATION DATA 


LOCATION 


CONSTANT FACTORS WILL BE USED. 
FRAG=1.O0000E +00 


SUMMARY 


FCONV= 1. OOOO0E +00 


INITIAL TIME=0.0000E+00 (SEC) 


TIME 
(SEC) 
O.OO00E +00 


TIME STEP 


(SEC) 


1. OOOOE +00 


ARRHENIUS EQUATION PARAMETERS 
0. 1O00000E +0 1 


N= 


TABL=6. 
TCHAR=8. 
TREC=2. 
TV=5. 
VL=2. 
FBLOWL=1. 
FBLOWT=1. 


6OO000E +02 
60000E +02 
23500E +03 
35000E +02 
OOOOOE +00 
OOOOOE +00 
OOOOOE +00 


(GCEG-R) 
(DEG-R) 
(OEG-R) 
(DEG-R) 
(IN) 


SURFACE RECESSION TABLE 


TEMPERATURE 
(OEG-R) 


0. OOOOOE +00 
2 .OOO00E +03 
4. 00000E +03 


THERMOCOUPLE LOCATIONS 
6 . 25000000E -02 


A= 


ABLC=4. 
ABLK=1. 
CHARC=4. 
CHARK=6. 
HV=2. 
CPGAS=5. 
RTR=8. 


SURFACE RECESSION 


(IN/SEC) 


(IN) 


0. OOOOOE +00 
0. OOOOOE +00 
0. OOOOOE +00 


.025 AT HIGH TEMPS 


ANGLE -GF-ATTACK HISTORY IS IGNOREO. 


WX=1.Q00000E+00 (FT) PLPTX=1.00000E +00 


TIME LIMIT=6.O000E+02 (SEC) 


PRINT CONTROL 
(TIME STEP/PRINT) 


20 


0. ISOOOO0E+ 10 


TOOOOE - 01 
O8OO00E -01 
OOOOOE -01 
SOOOOE -02 
OOOOOE +03 
OOOOOE -01 
OOOOOE +04 


1. 2S5000000E - 01 


2. SOOOOOOOE -0 1 


B= 0.2000000E+05 
(BTU/LB-R) RHOV=8 . 42000E+01 (LB/FT3) NP =30 
(BTU/HR-FT-R) RHOC=2.00000E+01 (LB/FT3) MMM= 2 
(BTU/LB-R) RHOS=1.60000E+01 (LB/FT3) NTURBT= 14 
(BTU/HR-FT-R) FV=1.O0000E +00 ITHIN= 1 
(BTU/LB-R) OHC=5.O0O000E+03 (BTU/LB) EMV=9. 9OOO0E -01 
(BTU/LB-R) HSUB=1.20000E+04 (BTU/LB) EMC =9. OOOO0E -01 

H300=1.29060E+02 (BTU/LB) SHAPEF=5.53200€ -02 


5. OOOOOOODE -0 1 1. COOOOOODE +00 
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REFERENCE TRAJECTORY ***NOTE IF QCONC(1).LT.0.0, THEN THE QO RAOIATIVE ARRAY CONTAINS 
SURFACE TEMPERATURE (OEG-F) ANO THE Q CONVECTIVE ARRAY IS NOT USEO. 
NO. OF TRAJECTORY POINTS = 5 
TIME Q CONVECTIVE O RAOIATIVE VELOCITY ALTITUOE ANGLE OF ATTACK 
(SEC) (BTU/FT2-SEC) (BTU/FT2-SEC) (FT/SEC) (FT) (OEG) 
0 .QOOOO0E +00 0.O00000E +00 1. 0O0000E +01 1. OOO00E +0 1 0. QOOO00E +00 0 .OOO00E +00 
2. OO000E +02 0 .OOO00E +00 1. 0O000E +01 1. 0O000E+01 0 .OOOOO0E +00 0. OOOOOE +00 
2.01000E +02 0 .QOOO0E +00 0. OOOOOE +00 1.OO000E +01 0. OOOODE +00 0. OOOO0E +00 
4. OOO00E +02 0 .OOO00E +00 0. OO000E +00 1.O00000E +01 0. OOOOOE +00 0 .OOOO0E +00 
6 .OOOOOE +02 0 .OOO00E +00 0. COOO0E +00 1.0O0000E +01 0. OOOODE +00 0 .OOO000E +00 


PROPERTIES OF THE BACKUP STRUCTURE 


NO. OF MATERIALS IN BACK-UP SHIELO= 3 
TOTAL NUMBER OF NOOES IN BACK-UP SHIELO= 9 
THICKNESS OF BACK-UP SHIELO= 3.Q00000E +00 


TEMPERATURE (OEG-R) 


THERMAL CONOUCTIVITY (BTU/HR-FT-R) 


SPECIFIC HEAT (8TU/LB-R) 


THERMAL SPECIFIC 
TEMPERATURE CONOUCTIVITY TEMPERATURE HEAT 
0. OOO00E +00 1. 30000E -02 0 .OO000E +00 2.39000E-01 
5 .60000E +02 1. GOOOOE -02 9. GOOO0E +02 2. 48000E -01 
6. GCO000E +02 1. 80000E -02 1. 96000E +03 2.77000E-01 
9. GO0000E +02 2. SOOOOE -02 
1. 26000E +03 3. QOOOO0E -02 
1.96000E +03 4. 10000E -02 
THERMAL SPECIFIC 
TEMPERATURE CONOUCTIVITY TEMPERATURE HEAT 
0. OO000E +00 1. 30000E -02 0. OO000E +00 2.39000E -01 
5. G(O000E +02 1. 60000E -02 9. GOOO0E +02 2. 48000E -01 
6 . GOOOOE +02 1. 80000E -02 1. I6O00E +03 2.77000E -01 
9. GOO00E +02 2. 5O0000E -02 
1.26000E +03 3. OOOOOE -02 
1. 96000E+03 4. 10000E -02 
THERMAL SPECIFIC 
TEMPERATURE CONOUCTIVITY TEMPERATURE HEAT 
0. OOOO0E +00 1. 3O000E -02 0. OOO00E +00 2. 39000E -01 
5 .60000E+02 1. GOOOOE -02 9. GO0000E +02 2. 48000E -01 
6 . GCOO00E +02 1. 80000E -02 1.96000E+03 2.77000E -01 
9. 60000E+02 2. 5O000E -02 
1. 26000E +03 3. OOO00E -02 
1.96000E+03 4. 10000E -02 
EMISSIVITY 
MATERIAL OENSITY THICKNESS FRONT BACK NOOES/MATERIAL 
(L8/FT3) (IN) 
1 7. 1000E -02 1. OOOOE +00 6 .5O00E-01 6. 5000E-01 3. OOO0E +00 
2 7. 1000€ -02 1. 0O00E +00 6.5000E-01 6. 5000E-01 3. OO00E +00 
3 7. 1000E -02 1. 0O000E +00 6. 5000E-01 6 .5000E-01 3.0000E +00 
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ADDITIONAL OATA FOR INOIVIOUAL MATERIALS IN BACKUP STRUCTURE 


MATERIAL FILM COEFFICIENT 
(BTU/HR-FT2-R) 

1 0 .O000E+00 

2 O. OOOOE +00 

3 0. OOOOE +00 


CABIN TEMPERATURE= 5.35000E+02 (OEG-R) 


VIEW FACTOR TO CABIN= 0.OQO00E +00 


GAP THICKNESS 


(IN) 
0. OOOOE +00 
0. OOOOE +00 
0 .QOOOE +00 


FTEST 


0. Q000E +00 
0. OOOOE +00 
0 .OOOOE +00 


BIEST 


O .OOOOE +00 
0. OOOOE +00 
0. OOOOE +00 


HEAT LOSS TO CABIN? 0.00000E+00 (BTU/HR-FT2-SEC) 


FILM COEFFICIENT TD CABIN= 0.00000E+00 (BTU/HR-FT2-R) 


TEMPERATURE OISTRIBUTION IN TEST SPECIMEN IS UNIFORM ANO EQUAL TO 5.3500E+02 (OEG-R) 


TRAJECTORY 


WITH LOCAL HEATING RATES 


NO. OF TRAJECTORY POINTS = 


5 


ALTITUOE 
(FT) 


0 . COOOOODE +00 
0 .OOOOOOOE +00 
0 . OOOOOOODE +00 
0 . OOOOOOOE +00 
0 . OCOOOOO0E +00 


(TURBULENT CASE) 


LOCAL 
O CONVECTIVE 


(BTU/FT2-SEC) 


0 .OOOOOOOE +00 
0. OOOOOODE +00 
0 .OOOOOOODE +00 
0. OOOOOOOE +00 
0 . OOOOOCO0E +00 


INTEGRATEO 


TIME VELOCITY 
(SEC) (FT/SEC) 
0.OO00000E+00 1.0000000E+01 
2.O0000000E+02 1.0000000E+01 
2.0100000E+02 1.0000000E+01 
4.0000000E+02 1 OOOOOO0E+01 
6. OOOO000E+02 1.0000000E+01 
TIME 


0. COOOOOOE +00 
2 . COOOOODE + 02 
2.0 1O0000E +02 
4. OOOOOOOE +02 
6 .OOOOOOOE +02 


Q CONVECTIVE 
0 .OOOOOOOE +00 
0. COOOO00E +00 
0 . OOOOOOOE +00 
0 . OOOOCOOE +00 
0 .OOOOOO0E +00 
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LOCAL 
O RAOIATIVE 


(BTU/FT2-SEC) 


1. OCOOOOOOE +01 
1. OOOOOO0E +0 1 
0. OOOOOOOE +00 
0 .OOOOOOOE +00 
0 . OOOOOO0OE +00 


INTEGRATEO 

O RAOIATIVE 
0 .OOOOOOOE +00 
2 .QOOOOOOE +03 
2. OO50000E +03 
2 .OOSOOOOE +03 
2. O050000E +03 


LOCAL 
REYNOLOS NO. 


0. OOOOOOOE +00 
0 . COOOOCOE +00 
0. OOOOOOOE +00 
0. OOOOOOOE +00 
0 .OOOCOOOE +00 


a= =@= == = ott 


TURBULENT 
FACTOR 


. OOOOOOOE +00 
. OCOOOOODE +00 
. OOOOOOOE +00 
. OCOOOOOOE +00 
. OOOOOCOOE +00 


INTEGRATEO 


NNN MOCO 


CON. + O RAO. 


. OCOOOOOOE +00 
. OOOOOOOE +03 
. OOSOOOOE +03 
. OOSOOOOE +03 
. OOSOOOOE +03 


OUTPUT DATA. 


eeee%8 TIME= 


0. OOOOOE +00 


FCONV= 


TIME STEP= 


1. OOOOCE +00 


Q CONVECTIVE= 0.Q0000E+00 


GAS ABLATION RATE= 0.Q0000E+00 
RECESSION OEPTH= 0.O0000E+00 


+ QIN= 

QHOT WALL= 
Qw8 = 
QBLOCK= 
QSUBL = 
QOxID= 


TEST SPECIMEN PROFILES AT THE ENO OF THE TIME STEP, 


x 
(IN) 
. 00000 
.06897 
13793 
. 20690 
. 27586 
.34483 
.41379 
.48276 
.55172 
.62069 
.68965 
. 75862 
.82759 
.89655 
.96552 
.03448 
. 10345 
17241 
. 24137 
.31034 
. 37930 
. 44827 
.51723 
58620 
.65516 
.72413 
. 79309 
. 86206 
.93102 
.99999 


TEMPERATURE OISTRISUTION IN THE 8ACK-UP STRUCTURE 
0. T5Q00000E +02 
0. T5Q00000E +02 


0. 7T500000E +02 
0. 7T500000E +02 


1. 0OO00E+01 
0. OO0000E +00 
0. O0000E +00 
0. OOOO0E +00 
0. OO0000E +00 
0. OOOO0E +00 


? 


TEMPERATURE 


(OEG-F) 
Vee 


~J 
134] 
oooo0o0oo0o0oooococce“o0oo0oo0oo0ocdvoo0ooo0°0co=+=uo0m 


(L8 


84. 
84. 
84. 
84. 
84. 
84. 
84. 
84. 


QRERAOQ= 
QSI02= 
TQIN= 
TQHW= 
TQRAOX= 
TOQ8LOCK= 


OENSITY 


/FT3) 


0. 7500000E +02 
0. 7500000E +02 


CN A A ee ee ee a ee 
ee ee oe @ - ee @ . 8 


1. OOOOOE +00 


(OEG-F) 


0. T5Q00000E +02 


145 


0. T5Q00000E +02 


0. T500000E +02 


FRAO= 1.00000E+00 VELOCITY= 1.Q00000E+01 
Q RAOIATIVE= 1.00000E+01 ANGLE OF ATTACK= 0.Q0000E +00 
CHAR ABLATION RATE= 0.Q0000E+00 TOTAL ABLATION RATE= 0.00000E+00 
RECESSION RATE= 0.00000E+00 SUBLIMATION RATE= 0.O0000E +00 
0. OOOOODE +00 TQOSUBL= O0.OO000E +00 ALPHA= 1.07123E+00 
0. OOOOOE +00 TQOXIO= 0. Q0000E +00 8COF= 0.Q0000E+00 
5 . OOOOCE +00 TQRERAO= 0.O00000E +00 G= 0.00000E+00 
0. COOOOE +00 HTX-HW=-1.97475E+00 PL= 1.46960E+01 
5 . OOOOOE +00 HTX= 1.29062E+02 PLPT= 1.Q00000E+00 
O . OOOO0E +00 RHOST= 8.02000E+01 WX= 1.QQ000E +00 
TIME= 1.00000E +00 
THETA M OOT M COKE MT COKE PRESSURE 
(L8/FT2-HR) (L8/FT2-HR) (L8/FT2-HR) (PSI) 
.0000 0.O0000000E+00 O0.0000000E+00 0.O0000000E +00 14.6959 
.0000 0.0000000E+00 0.Q0000000E+00 0.0000000E +00 14.6959 
.000O0 0O.0000000E+00 O0.O0000000E+00 0.O000000E +00 14.6959 
.0000 0.Q000000E+00 0.0000000E+00 0.O0000000E +00 14.6959 
.0000 O0.0000000E+00 0.O0000000E+00 0.0000000E +00 14.6959 
.0000 0.0000000E+00 0.0000000E+00 0.0000000E +00 14.6959 
.0000 0.O0000000E+00 0O.O0000000E+00 0.0000000E +00 14.6959 
.0000 0O.0000000E+00 0.O0000000E+00 0.0000000E +00 14.6959 
.0000 0.0000000E+00 0.0000000E+00 0. 0000000E +00 14.6959 
-0000 0.0000000E+00 0.0000000E+00 0.O0000000E +00 14.6959 
.0000 0O.O0000000E+00 0.0000000E+00 0.0000000E+00 14.6959 
-0000 0.0000000E+00 0.0000000E+00 0.0000000E +00 14.6959 
.0000 0.O0000000E+00 0.0000000E+00 0. 0000000E +00 14.6959 
-0000 0.0000000E+00 0.0000000E+00 0.0000000E +00 14.6959 
-0000 0.OQ000000E+00 0.Q0000000E+00 0. O0000000E +00 14.6959 
.0000 0.0000000E+00 0O.O0000000E+00 0. 0000000E +00 14.6959 
.0000 0.0000000E+00 0.0000000E+00 0. O0000000E +00 14.6959 
0000 0.0000000E+00 0.0000000E+00 0.0000000E +00 14.6959 
0000 0.0000000E+00 0.0000000E+00 0.0000000E +00 14.6959 
.0000 0.O0000000E+00 0.O0000000E+00 0. O0000000E +00 14.6959 
0000 0.0000000E+00 0.0000000E+00 0. 0000000E +00 14.6959 
0000 0.Q0000000E+00 0.0000000E+00 0. 0000000E +00 14.6959 
0000 0.0000000E+00 O0.O0000000E+00 0. O0000000E +00 14.6959 
.0000 0.O0000000E+00 0.O0000000E+00 0.0000000E+00 14.6959 
0000 0.0000000E+00 0.0000000E+00 0.O0000000E +00 14.6959 
0000 0.0000000E+00 0.O0000000E+00 0.0000000E +00 14.6959 
0000 0.0000000E+00 0.0000000E+00 0.0000000E +00 14.6959 
0000 0.0000000E+00 0.0000000E+00 0. 0000000E +00 14.6959 
.0000 0.Q0000000E+00 0.0000000E+00 0.0000000E +00 14.6959 
.0000 0O.Q0000000E+00 0.0000000E+00 0.O0000000E +00 14.6959 


TEMPERATURES AT SELECTEO THERMOCOUPLE LOCATIONS OEPTH - (IN), TEMPERATURE - (OEG-F) 
DEPTH TEMPERATURE 
0. 62500000E -01 0.81704437E +02 
0. 12500000E +00 0.75347855E +02 
0. 25000000E +00 0. 75000290E +02 
0. SOOOOOOOE +00 0.749997 10E +02 
0. 10000000E +01 0.74999695E+02 


PENETRATION DEPTHS (IN) 


MAX OEPTH OF 
MAX DEPTH OF 


200.00 (OEG-F)} ISOTHERM= 0.00000E+00 
400.00 (OEG-F) ISOTHERM= 0.Q0000E+00 
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OEPTH OF 200.00 (DEG-F) ISQTHERM= 0.Q0000E +00 DEPTH DFO.10000 DENSITY RATIO= 0.Q0000E+00 
DEPTH DF 400.00 (DEG-F) ISOTHERM= 0.Q0000E+00 DEPTH OFO.90000 DENSITY RATIO= 0.00000E+00 
EQUIVALENT TEST SPECIMEN LOSS= 0.00000 (IN) EQUIVALENT TEST SPECIMEN LENGTH= 2.00000 (IN) 
eeeret TIME* 2. QOOCOOE+01 TIME STEP= 1.00000E+00 
FCONV= 1.00000E +00 FRAO= 1.00000E +00 VELOCITY= 1.Q00000E+01 
Q CONVECTIVE= 0.O00000E+00 Q RAOIATIVE= 1.00000E+01 ANGLE OF ATTACK= 0.0Q0000E +00 
GAS ABLATION RATE= 4.87247E+00 CHAR ABLATION RATE= 0.Q0000E+00 TOTAL ABLATION RATE= 4.87247E+00 
RECESSION OEPTH= 0.O0000E +00 RECESSION RATE= 0.00000E+00 SUBLIMATION RATE= 0.O00000E+00 
QIN= 9.47550E+00 ORERAO= 5.24504E-01 TQOSUBL= 0.OQ0000E +00 ALPHA= 1.07123E+00 
QHOT WALL= 0.O0Q000E+00 OSID2= 0.00000E +00 TQDXID= O.O00000E+00 BCOF= 0.Q0000E+00 
QWB= O.QOO00E +00 TOIN= 1.96951E+02 TQRERAO= 8.04873E+00 G= 0.O00000E +00 
QBLOCK= 0.O0000E +00 TQHW= O.OO000E +00 HTX~-HW=-1.31849E+02 PL= 1.46960E+01 
QSUBL= 0.0O0000E+00 TQRAOX= 2.05000E+02 HTX= 1.29062E+02 PLPT= 1.00000E+00 
QOXIO= 0.O0000E +00 TOBLOCK= 0.QO0000E+00 RHOST= 7.37210E+01 WX= 1.Q0000E+00 
TEST SPECIMEN PROFILES AT THE END DF THE TIME STEP, TIME= 2. 1Q0000E+01 
X TEMPERATURE OENSI TY THETA M DOT M COKE MT COKE PRESSURE 
(IN) (OEG-F) (LB/FT3) (LB/FT2-HR) (LB/FT2-HR) (L8/FT2-HR) (PST) 
0.00000 606.0 cas 0.8843 0.4872469E+01 0O.QQ000000E+00 0.O0000000E+00 14.6959 
0.06897 148.8 84.20 1.0000 0.O0000000E+00 0.0000000E+00 0.QQ0Q000E +00 14.6959 
0.13793 a2 5 84.20 1.0000 Q0.O000000E+00 0.Q000000E+00 0. O0000000E +00 14.6959 
Q. 20690 78.4 84.20 1.0000 0.O0000000E+00 0.Q000000E+00 0.Q000000E +00 14.6959 
0.27586 75.6 84.20 1.0000 0.Q000000E+00 0.0000000E+00 0.0000000E +00 14.6959 
0.34483 tiie | 84.20 1.0000 0.O0000000E+00 0.O0000000E+00 0.0O000000E +00 14.6959 
0.41379 75.0 84.20 1.0000 0.0000000E+00 0.Q0000000E+00 0.0000000E +00 14.6959 
0.48276 1550 84.20 1.0000 0.O0000000E+00 0.O0000000E+00 0.O000000E +00 14.6959 
0.55172 75.0 84.20 1.0000 0.0000000E+00 0.O0000000E+00 0.0000000E +00 14.6959 
0.62069 15:0 84.20 1.0000 0.QO00000E+00 0.O0000000E+00 0.O0000000E +00 14.6959 
0.68965 73.0 84.20 1.0000 0.O0000000E+00 0.0000000E+00 0. O0000000E +00 14.6959 
0.75862 75.0 84.20 1.0000 Q.O0000000E+00 O0.Q0Q0000E+00 0.Q0000000E +00 14 6959 
0.82759 75.0 84.20 1.0000 Q.Q0Q0000E+00 O0.Q000000E+00 0.QQ00000E +00 14 6959 
0.89655 75.0 84.20 1.0000 0.O0000000E+00 0.O0000000E+00 0.O0000000E +00 14.6959 
O 96552 715.0 84.20 1.0000 0.O000000E+00 0.O0000000E+00 0.O000000E +00 14 6959 
1.03448 73.0 84.20 1.0000 0.QOO00000E+00 O0.O0000000E+00 0.0000000E +00 14.6959 
1.10345 73.0 84.20 1.0000 0.O0000000E+00 0.Q0000000E+00 0.O0000000E +00 14.6959 
1.17241 75.0 84.20 1.0000 0.O0000000E+00 0.O000000E+00 0.Q000000E +00 14.6959 
1.24137 Une) 84.20 1.0000 0.O0000000E+00 0.O0000000E+00 0.O000000E +00 14.6959 


TEMPERATURE DISTRIBUTION IN THE BACK-UP STRUCTURE 


1.31034 19.0 84.20 1.0000 
1.37930 13.0 84.20 1.0000 
1.44827 73.0 84.20 1.0000 
1.51723 75.0 84.20 1.0000 
1.58620 78.0 84.20 1.0000 
1.65516 75.0 84.20 1.0000 
1.72413 75.0 84.20 1.0000 
1.79309 75.0 84.20 1.0000 
1.86206 75.0 84.20 1.0000 
1.93102 15.0 84.20 1.0000 
1.99999 75.0 84.20 1.0000 


oooooo0o°oc°oo0°co 


- OOOCOOCOE +00 
. OOCOOCODE +00 
- OOOOOOOE +00 
. OOOOOODE +00 
. OOOCOOOE +00 
. OOCOCOOCE +00 
. COOOOOOE +00 
- COOCOOOE +00 
. OOOCOODE +00 
. COOOOOCE +00 
. OOOOOODE +00 


(OEG-F) 


. OCOOOCOOCE +00 
. OOOOOOOE +00 
- OOOOOOOCE +00 
- OOOOCOOCE +00 
. OOOOCOCE +00 
. OOOOCOOCE +00 
. OOOOOOOE +00 
OOOOOOOCE +00 
OOOOOOODE +00 
. OCOOOOOODE +00 
- OCOOOOODE +00 


eooo0o°o°0o°o°0o°0os 
oooooceoo°c7c°o 


0. TSQOOOOCE +02 


0. TSOOOO0E +02 
0. TSOOOO0E +02 


0. TSOOOOOE +02 
0. TSOOOOOE +02 


TEMPERATURES AT SELECTEOQ THERMDCDUPLE LOCATIONS 


OEPTH 


OQ. TSOOOOOE +02 
0. TSQOOOOE +02 


0. TSQOOOOE +02 


0.62500000E -01 
0. 12500000E +00 
0. 25000000E +00 
0. SOOOOOOOE +00 
0. 1OO00000E +01 


OEPTH - (IN), 


PENETRATION OEPTHS (IN) 
MAX DEPTH DF 200.00 (DEG-F) ISOTHERM= 0.61245E-01 
MAX OEPTH OF 400.00 (DEG-F) ISOTHERM= 0.31076E-01 


DEPTH DF 


200.00 (OEG-F) ISDTHERM= 0.61245E-01 
OEPTH DF 400.00 (OEG-F) ISOTHERM= 0.31076E-01 
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TEMPERATURE 


0.17465094E+03 
0.99802948E +02 
0. 76346069E +02 
0.74997757E +02 
0.74997742E+02 


. OOOOCOOCE +00 
. OOOOOOOE +00 
. COOOOOOE +00 
. COOOCOOE +00 
. OOOOOOOCE +00 
. OOCOOOODE +00 
- OOOOOOOE +00 
- OCOOCODE +00 
- COOCOOOE +00 
. OCOOOOOODE +00 
- COOOOODE +00 


0. TSOOQCOOCE +02 


TEMPERATURE - (DEG-F) 


OEPTH DFO. 10000 OENSITY RATIO= O.O0000E +00 
DEPTH DFO.90000 DENSITY RATIO= 0.93334E -02 


EQUIVALENT TEST SPECIMEN LOSS= 0.00356 (IN) EQUIVALENT TEST SPECIMEN LENGTH= 1.99644 (IN) 
#ee¢%% TIME= 4.Q00000E+01 TIME STEP= 1.00000E +00 
FCONV= 1.00000E +00 FRAD= 1.Q0000E+00 VELOCITY= 1.QQ0000E+01 
0 CONVECTIVE= 0.00000E+00 OQ RAOIATIVE= 1.00000E+01 ANGLE OF ATTACK= 0.Q0000E+00 
GAS ABLATION RATE= 4.23348E+00 CHAR ABLATION RATE= 0.00000E+00 TOTAL ABLATION RATE= 4.23348E+00 
RECESSION OEPTH= 0.Q0000E+00 RECESSION RATE= 0.00000E +00 SUBLIMATION RATE= 0.00000E+00 
OIN= 9.44325E+00 ORERAO= 5.56749E-O1 TOQSUBL= 0.O00000E+00 ALPHA= 1.07123E+00 
OHDT WALL= 0.QQ000E +00 OSID2= 0.00000E +00 TOOXIO= 0.00000E+00 BCDF= 0.O0000E +00 
QWB= 0.O00000E+00 TOIN= 3.86139E +02 TORERAD= 1.88609E+01 G= 0.00000E+00 
OBLOCK= 0.00000E +00 TOHW= 0. QO000E +00 HTX -HW=- 1.355256 +02 PL= 1.46960E+01 
OSUBL= 0.00000E+00 TORAOX= 4.05000E+02 HTX= 1.29062E +02 PLPT= 1.Q0000E+00 
QOXIO= 0.00000E +00 TOBLOCK= 0.00000E+00 RHDST= 6.47926E+01 WX= 1.O0000E+00 
TEST SPECIMEN PROFILES AT THE END DF THE TIME STEP, TIME= 4. 10000E+01 
Xx TEMPERATURE DENSITY THETA M DDT M CDKE MT CDKE PRESSURE 
(IN) (OEG-F) (LB/FT3) (L8/FT2-HR) (LB/FT2-HR) (LB/FT2-HR) (PST) 
0.00000 621.0 68.38 0.7473 0.4233484E+01 0O.Q000000E+00 0.0000000E +00 14.6959 
0.06897 204.1 84.20 1.0000 0.8236020E-04 0O.O0000000E+00 0.0000000E +00 14.6959 


0.13793 118 
0.20690 88 
0.27586 78 
0.34483 3 
0.41379 3 
0.48276 Ts 
0.55172 75 
0.62069 75 
0.68965 75 
0.75862 75 
0.82759 75 
0.89655 75 
0.96552 75 
1.03448 75 
1.10345 79 
1.17241 75 
1.24137 75 
1.31034 75 
1.37930 75 
1.44827 79 
1.591723 13 
1.58620 79 
1.65516 5 
1.72413 79 
1.79309 13 
1.86206 78 
1.93102 fhe 
1.99999 79 


TEMPERATURE OGISTRIBUTION IN THE BACK-UP STRUCTURE 
0. TSO0000E +02 
0. TS00000E +02 


O. TSOOO00E +02 
0. TS0O0000E +02 


TEMPERATURES AT SELECTED THERMOCOUPLE LOCATIONS 


PENETRATION DEPTHS 


MAX DEPTH OF 
MAX GEPTH OF 


COKDDDDDCDCOCODDOC OOO OOOOOOONaAOM 


0.62 
0.12 
O.25 


20 1.0000 
20 1.0000 
20 1.0000 
20 1.0000 
20 1.0000 
20 1.0000 
20 1.0000 
20 1.0000 
20 1.0000 
20 1.0000 
20 1.0000 
20 1.0000 
20 1.0000 
20 1.0000 
20 1.0000 
20 1.0000 
20 1.0000 
20 1.0000 
20 1.0000 
20 1.0000 
20 1.0000 
20 1.0000 
20 1.0000 
20 1.0000 
20 1.0000 
20 1.0000 
20 1.0000 
20 1.0000 


0. TSOOO00E +02 


0. TSQOCO00E +02 


OEPTH 

SOCOOOE -01 
SOOOOCE +00 
OOOCOOOCE +00 


0. SOCOOOOOE +00 


0) 


(IN) 


. \OCOCOCOOE +01 


oooo0oooocooooo coo coo ooooocoooo 


. COCOOCOOE +00 
. OOOCOO0E +00 
. OOOOOOOCE +00 
. OCOOOOOODE +00 
.COOCOOOO0E +00 
. OCOOOOO0E +00 
. OOOOOCOOCE +00 
. COOOOOODE +00 
. OOOOOOOE +00 
. OOOOOOOCE +00 
. OOOOOODE +00 
. COOOOOOE +00 
. OOOOCOCOE +00 
. OCOOOOODE +00 
. COOOOOCE +00 
.OOOCOOOE +00 


OCOCOOOE +00 


. COOOOOCE +00 
. OCOOOOODE +00 
. OOOOOOOE +00 
. COOOOOOE +00 
. OOOOOCOOE +00 
. COOOOOOE +00 
. OOOOCOOE +00 
. OOOOCOCOOE +00 
. DOOOOOOE +00 
. OOOOOODE +00 
. OOOCOOOE +00 


(DEG-F) 


oooooocoo0o°oo0cococo°c0°0coo0o0o0o00o0000o0co 


0. 75Q00000E +02 


DEPTH - 


200.00 (DEG-F) ISOTHERM= 0.72305E-01 
400.00 (GEG-F) ISOTHERM= 0.36563E-01 


(IN), 


. OOOOOOOE +00 
. OCOCOOCOE +00 
. OOOOOOCOE +00 
. COOOOCOOCE +00 
. OCOOOOOOCE +00 
. OOOCOOOCOE + 00 
. COOOOOOE +00 
. OOOOCOOCE +00 
. OOOOOODE +00 
. QOOOOOOE +00 
. OOOOOOOE +00 
. OCOCOOODE +00 
- OOOOOOOCE +00 
. OCOOOCOOCE +00 
- OCOOOOOE +00 
. OOOOOODE +00 
. COOOOOOE +00 
. OOOOOOOCE +00 
. OOOOOOOE +00 
. OOOOOOOE +00 
. OOOOOOOE +00 
. OOOOOOOE +00 
. OOCOOCOE +00 
. COOOCOOE +00 
. COOOOOOE +00 
. OOOOCOOOE +00 
. OOOOOOO0E +00 
.OOOOOOCOE +00 


O. TSQO000E +02 


TEMPERATURE 


TEMPERATURE 


0.22916003E+03 
0. 13027545E +03 
0.81557495E+02 
0.75017883E+02 
0.74997742E+02 


oooo°oocdcoeoco°ceo°ocoeo0c°o0°o00c°o°o°coeo°o°o 


. OCOOCOOOE +00 
. OOOOCOOE +00 
. COOOOOOE +00 
. OOOOCOOOCE +00 
. OCOOOCOOOCE +00 
. OOOOOOOE +00 
. COOOOOOE +00 
. OCOOOOOOE +00 
. COOOOOOE +00 
. COOCOOOE +00 
. OCOOOOOOE +00 


OOOOOOOE +00 


. OOOOOOOCE +00 
. COOOOOOE +00 
. COOOOOCOE +00 
. OCOCOOOOE +00 
. OCOOOOOE +00 
. OCOOOOCE +00 
. COOOOOOE +00 
. COOOOODE +00 
. OOOOCOOE +00 
. OOOOOOOE +00 
. COOOOODE +00 
. COOOOOOE +00 
. COOOO00E +00 
. OOOOOOOE +00 
. OCOOO00E +00 
. OCOOOOOOE +00 


.6959 
.6959 
.6959 
.6959 
.6959 
.6959 
.6959 

6959 
.6959 
.6959 
.6959 
.6959 
.6959 
.6959 
.6959 
.6959 
.6959 
.6959 
.6959 
.6959 
.6959 
.6959 
.6959 
.6959 
.6959 
.6959 
.6959 
.6959 


0. 7T500000E +02 


- (OEG-F) 


CEPTH GF 200.00 (GEG-F) ISOTHERM= 0.72305E-01 GEPTH OFO. 10000 GENSITY RATIG= 0.QO000E +00 
CEPTH GF 400.00 (DEG-F) ISOTHERM= 0.36563E-01 DEPTH GFO.90000 GENSITY RATIO= 0.41670E-01 
EQUIVALENT TEST SPECIMEN LOSS= 0.01589 (IN) EQUIVALENT TEST SPECIMEN LENGTH= 1.98411 (IN) 
sae Ss? TIME= 6. OCOCOCE+O1 TIME STEP= 1.00000E+00 
FCGNV= 1.00000E+00 FRAD= 1.0Q0000E+00 VELOCITY= 1.Q00000E+01 
O CONVECTIVE= 0.O00000E +00 O RAGIATIVE= 1.Q0000E+01 ANGLE OF ATTACK= 0.Q0000E+00 
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GAS ABLATION RATE= 3.35246E+00 CHAR ABLATION RATE= 


RECESSION 


DIN= 

QHOT WALL= 
QwWB = 
QBLOCK= 
QSUBL = 
QDXIO= 


TEST SPECIMEN 


x 
(IN) 
. 00000 
.06897 
5 US 
. 20690 
. 27586 
. 34483 
.41379 
. 48276 
ssol?2 
62069 
.68965 
. 75862 
a2 799 
.89655 
.96552 
.03448 
. 10345 
.17241 
. 24137 
.31034 
. 37930 
.44827 
pavi2g 
. 58620 
65516 
.724193 
. 79309 
. 86206 
Dog te 
ao 3o 


eee eee ere eee ene wt OOOOCOOCOOOCOCOOOOOCOO 


TEMPERATURE DISTRIBUTIDN IN THE BACK-UP STRUCTURE 


0. 7T5Q00000E +02 
0. TS500000E +02 


TEMPERATURES AT SELECTEO THERMOCOUPLE LOCATIDNS 


0. 7T500000E + 02 
0. TSQ0000E +02 


OEPTH 
0.62500000E -01 
0. 12500000E +00 
0. 25000000E +00 
0. SOOOOOOOE +00 
0. 10000000E +01 


0. TSQO000E +02 
0. TSQ0000E +02 


(DEG-F) 


0. OOOOOE +00 


0. TS5Q00000E +02 


DEPTH - (IN), 


149 


0. TSQ0000E +02 


TEMPERATURE 


OEPTH= 0.OQ0000E +00 RECESSION RATE= 0.00000E+00 
9.41201E+00 QRERAG= 5.87989E-01 TOQSUBL= 0.00000E +00 
0. OOOO0E +00 QSIO2= 0.O0000E +00 TOQOXIG= O.O00000E +00 
0 .OOO00E +00 TOIN= 5.74688E+02 TORERAO= 3.09123E+01 
0. OO000E +00 TOQHW= O0.Q00000E +00 HTX-HW=-1.38947E+02 
0 .QO0000E +00 TORADX= 6.0O5000E +02 HTX= 1.29062€+02 
0. QO0000E+00 TQBLOCK= 0.00000E +00 RHOST= 5.74914E+01 
PROFILES AT THE END OF THE TIME STEP, TIME= 6. 10000E+01 
TEMPERATURE OENSITY THETA M OOT M COKE 
(OEG-F) (LB/FT3) (LB/FT2-HR) (LB/FT2-HR) 
634.9 61.18 0.6366 0.3352455E+01 O.O0000000E+00 O 
251.0 84.20 1.0000 0.5850743E-03 O.QO000000E+00 0 
143.4 84.20 1.0000 0O.Q000000E+00 O.O0000000E+00 0 
101.8 84.20 1.0000 0.0000000E+00 0.O0000000E+00 0 
84.5 84.20 1.0000 0.O0000000E+00 0O.0000000E+00 0 
78.0 84.20 1.0000 0.0000000E+00 O.0000000E+00 0 
75.8 84.20 1.0000 0.0000000E+00 0.0000000E+00 oO 
75.2 84.20 1.0000 0.Q0000000E+00 O.0000000E+00 O 
75.0 84.20 1.0000 0.0000000E+00 0.0000000E+00 Oo 
75.0 84.20 1.0000 0.0000000E+00 0O.0000000E+00 O 
75.0 84.20 1.0000 0.0000000E+00 O.0000000E+00 O 
75.0 84.20 1.0000 0.0000000E+00 0.0000000E+00 0 
75.0 84.20 1.0000 0.0000000E+00 0.0000000E+00 O 
75.0 84.20 1.0000 0.0000000E+00 0O.0000000E+00 O 
75.0 84.20 1.0000 0.0000000E+00 0.0000000E+00 0 
75.0 84.20 1.0000 0.0000000E+00 O.0000000E+00 0 
75.0 84.20 1.0000 0.Q0000000E+00 O.0000000E+00 0 
75.0 84.20 1.0000 0.Q0000000E+00 0.0000000E+00 0 
75.0 84.20 1.0000 0.0000000E+00 0O.0000000E+00 O 
75.0 84.20 1.0000 0.O0000000E+00 0O.O0000000E+00 0O 
75.0 84.20 1.0000 0.0000000E+00 0.0000000E+00 Oo 
75.0 84.20 1.0000 0.0000000E+00 0.0000000E+00 O 
75.0 84.20 1.0000 0.O0000000E+00 0O.0000000E+00 0 
75.0 84.20 1.0000 O.0000000E+00 0.O0000000E+00 O 
75.0 84.20 1.0000 O0.Q0000000E+00 0.0000000E+00 O 
75.0 84.20 1.0000 0.0000000E+00 0.0000000E+00 O 
75.0 84.20 1.0000 0.0000000E+00 0.O0000000E+00 0 
75.0 84.20 1.0000 0O.O0000000E+00 0.O0000000E+00 0 
75.0 84.20 1.0000 0.Q0000000E+00 0O.0000000E+00 0 
75.0 84.20 1.0000 0.0000000E+00 O.0000000E+00 0 


0.27523242E€+03 
0. 1585069 1E +03 
0 .89749390E +02 
0.75 14627 1E&+02 
0.74997742E+02 


ALPHA= 
BCOF = 
G: 
PL= 
PLPT= 
WX= 


MT COKE 
(LB/FT2-HR) 


. OCOOOOO0E +00 
- COOOOODE +00 
. OOOOCOOE +00 
- OCOOOOOOE +00 
. COOOD00E +00 
- OCOOOOODE +00 
. COOOOODE +00 
- OOOOOODE +00 
- COOOOOOE +00 
- COOOO0ODE +00 
- COOOOCO0E +00 
- COOOOO0E +00 
- COOOO00E +00 
. COOOOODE +00 
- OOOOOOOE +00 
. COOOO00E +00 
- OOOOOO0E +00 
. COOOOO0DE +00 
. COOOOODE +00 
-. OOOOOO00E +00 
- OOOOOODDE +00 
. COOOD0DE + 00 
. OOOOOCOOE +00 
- OOOOOO0E +00 
- OOOOO000E +00 
-. COOOO00E +00 
. COOOOODE +00 
. OOOOOODE +00 
- COOOOO0E +00 
. COOOO00E +00 


TOTAL ABLATIDN RATE= 3.35246E+00 
SUBLIMATION RATE= 0.O00000E +00 


1.07123&+00 
0.QO0000E +00 
0 . OOOOOE +00 
1. 46960E+01 
1. OOOOOE +00 
1 .QOOOOE +00 


PRESSURE 
(PSI) 
.6959 
.6959 
.6959 
.6959 
.6959 
.6959 
.6959 
.6959 
.6959 
.6959 
.6959 
.6959 
.6959 
.6959 
.6959 
.6959 
.6959 
.6959 
.6959 
.6959 
.6959 
.6959 
.6959 
.6959 
.6959 
.6959 
.6959 
.6959 
.6959 
.6959 


0. 7T5Q00000E +02 


TEMPERATURE - (DEG-F) 


PENETRATION OEPTHS (IN) 


MAX DEPTH OF 
MAX OEPTH OF 


200.00 (DEG-F) ISOTHERM= 0. 10164E+00 
400.00 (OEG-F) ISOTHERM= 0.42195E-01 


OEPTH OFO.10000 OENSITY RATIO= O.O0000E +00 
DEPTH OFO.90000 OENSITY RATIO= 0.49989E-01 


0.10164E+00 
0.42195E-O1 


200.00 (OEG-F) ISOTHERM= 
400.00 (OEG-F) ISOTHERM= 


DEPTH OF 
OEPTH OF 


EQUIVALENT TEST SPECIMEN LOSS= 0.01906 (IN) EQUIVALENT TEST SPECIMEN LENGTH= 1.98094 (IN) 


150 


eeeeee TIME= 8. OO000E+01 TIME STEP= 1.Q00000E+00 
FCONV= 1.OQQ0000E+00 FRAD= 1.Q00000E+00 VELOCITY= 1.QQ0000E+01 
O CONVECTIVE= 0.00000E +00 O RAOIATIVE= 1.Q00000E+01 ANGLE OF ATTACK= 0.QQO000E +00 
GAS ABLATION RATE= 2.53944E+00 CHAR ABLATION RATE= 0.Q0000E+00 TOTAL ABLATION RATE= 2.53944E+00 
RECESSION OEPTH= 0. OO000E+00 RECESSION RATE= 0.OQ0000E +00 SUBLIMATION RATE= 0.O0000E +00 
OIN= 9.38506E +00 ORERAD= 6.14942E-01 TOSUBL= 0.QOQO00E +00 ALPHA= 1.07123E+00 
OHOT WALL= 0.00000E +00 OSTO2= 0.O0000E +00 TOOXID= 0. OOOO0E +00 BCOF= 0.O00000E +00 
OWB= 0. OQO000E +00 TOIN= 7.62649E+02 TORERAD= 4.23512E+01 G= 0.QOQ000E +00 
OBLOCK= 0.OQO000E +00 TOHW= 0.O0000E +00 HTX -HW=-t.41797E+02 PL= 1.46960E+01 
OSUBL= O0.O0000E+00 TORAOX= 8.OSO0O0E +02 HTX= 1.29062E +02 PLPT= 1.Q00000E+00 
OOxXTIO= 0.00000E +00 TOBLOCK= 0.QQ0Q00E +00 RHOST= 5.21689E+01 WX= 1.O00000E +00 
TEST SPECIMEN PROFILES AT THE ENO OF THE TIME STEP, TIME= 8. 10000E+01 
Xx TEMPERATURE OENSITY THETA M OOT M COKE MT COKE PRESSURE 
(IN) (OEG-F) (LB/FT3) (LB/FT2-HR) (LB/FT2-HR) (LB/FT2-HR) (PSI) 
0.00000 646.4 55.95 0.5567 0.2539436E+01 0.Q000000E+00 0.Q0000000E +00 14 6959 
0.06897 289.9 84.20 0.9999 0.2704849E-02 0.Q000000E+00 0.0000000E+00 14.6959 
0713793 165.2 84.20 1.0000 0O.OQ000000E+00 O.O0000000E+00 0.Q000000E +00 14.6959 
0.20690 1157/5 84.20 1.0000 0.O0000000E+00 0.0000000E+00 0.O0000000E +00 14 6959 
0.27586 92.0 84.20 1.0000 O.Q000000E+00 0O.Q000000E+00 0.O0000000E +00 14.6959 
0.344893 81.4 84.20 1.0000 0.Q000000E+00 0O.Q000000E+00 0. O0000000E +00 14.6959 
0.41379 La Be? 4 84.20 1.0000 0.Q0000000E+00 0.Q000000E+00 0.O0000000E +00 14.6959 
0.48276 5.7 84.20 1.0000 O.O000000E+00 0.O0000000E+00 0. O0000000E +00 14.6959 
0.55172 79.2 84.20 1.0000 0O.O0000000E+00 0.Q000000E+00 0.O000000E +00 14.6959 
0.62069 75.0 84.20 1.0000 0.0000000E+00 0O.O000000E+00 0. 0000000E +00 14.6959 
0.68965 75.0 84.20 1.0000 0.O0000000E+00 0.Q000000E+00 0. 0000000E +00 14.6959 
0.75862 73.0 84.20 1.0000 0O.O0000000E+00 O.Q000000E+00 0.0000000E +00 14.6959 
0582759 13.0 84.20 1.0000 0.Q000000E+00 0.Q000000E+00 0. O000000E +00 14.6959 
0.89655 75.0 84.20 1.0000 0O.O000000E+00 O0.O0000000E+00 0.O0000000E +00 14.6959 
0.96552 7350 84.20 1.0000 0.QQ00000E+00 O.O0000000E+00 0. O0000000E +00 14.6959 
1.03448 75.0 84.20 1.0000 0.Q000000E+00 0.QO000000E+00 0.0000000E +00 14.6959 
1.10345 75.0 84.20 1.0000 0.O0000000E+00 0.O0000000E+00 0.O0000000E +00 14.6959 
1.17241 75.0 84.20 1.0000 0.O0000000E+00 0.O0000000E+00 0.0000000E +00 14.6959 
1.24137 7520 84.20 1.0000 0.O0000000E+00 0.0000000E+00 0.O0000000E+00 14.6959 
1.31034 3-0 84.20 1.0000 0.Q000000E+00 0.O0000000E+00 0.O0000000E +00 14.6959 
1.37930 7320 84.20 1.0000 0.0000000E+00 0.Q000000E+00 0. O0000000E +00 14.6959 
1.44827 1520 84.20 1.0000 0.OQ000000E+00 0.O0000000E+00 0.0000000E +00 14.6959 
1.51723 73.0 84.20 1.0000 O.O0000000E+00 0.0000000E+00 0.0000000E +00 14.6959 
1.58620 13.0 84.20 1.0000 0.O0000000E+00 0.O0000000E+00 0O.0000000E +00 14.6959 
1.65516 7320 84.20 1.0000 0.Q000000E+00 0.Q000000E+00 0. 0000000E +00 14.6959 
1.72413 75.0 84.20 1.0000 0.Q000000E+00 0.O0000000E+00 0.0000000E +00 14.6959 
1.79309 75-0 84.20 1.0000 0.QO0Q00000E+00 0O.O0000000E+00 90.O0000000E +00 14.6959 
1.86206 73.0 84.20 1.0000 0O.O000000E+00 0.Q000000E+00 0.0000000E +00 14.6959 


1,93102 
199999 


84.20 
84.20 


1.0000 0.Q000000E+00 0O.0000000E+00 0.O0000000E +00 
1.0000 0.Q000000E+00 0.0000000E+00 0. O0000000E +00 


TEMPERATURE OISTRIBUTION IN THE BACK-UP STRUCTURE 
0. TSOO000E +02 0. T5QO000E +02 0. TSQOQ000E +02 
0. TSQOO00E +02 0. TSQO000E +02 0. TSOQO000E +02 


(OEG-F) 


0. TSOO000E +02 0. TSQO000E +02 


TEMPERATURES AT SELECTED THERMOCOUPLE LOCATIONS OEPTH - (IN), TEMPERATURE - (OEG-F) 
OEPTH 

0. 62500000E -01 

0. 12500000E +00 

0 . 25000000E +00 

0. SOOOOOOOE +00 


0. 1\OOQOO0000E +0 1 


TEMPERATURE 

0.31942798E+03 
0. 18283084E+03 
0.99289917E+02 
0.755 14542E+02 
0. 74997742E+02 


PENETRATION OEPTHS (IN) 
MAX OEPTH OF 200.00 (OEG-F) ISOTHERM= 0.11866E+00 
MAX OEPTH OF 400.00 (OEG-F) ISOTHERM= 0.47658E-01 


200.00 (OEG-F) ISOTHERM= 0.11866E£+00 
400.00 (OEG-F) ISOTHERM: 0.47658E-01 


OEPTH OF 
OEPTH OF 


EQUIVALENT TEST SPECIMEN LOSS= 0.02036 (IN) EQUIVALENT TEST SPECIMEN LENGTH= 


##*e%* TIME= 1.QQQ000E+02 TIME STEP= 1.00000E+00 
FCONV= 1.00000E +00 
Q CONVECTIVE= 0.0Q00000E +00 


GAS ABLATION RATE= 2.06528E+00 


FRAO= 1.Q00000E+00 
Q RAOIATIVE= 1.Q00000E+01 
CHAR ABLATION RATE= 0.Q0000E +00 


VELOCITY= 


TOTAL ABLATION RATE= 


14.6959 
14.6959 


0. TSO0000E +02 


OEPTH OFO. 10000 OENSITY RATIO= 0.Q0000E +00 
OEPTH OFO.90000 OENSITY RATIO= 0.53414E-01 


1.97964 (IN) 


1. OOOOOE +01 


ANGLE OF ATTACK= 0.O0000E+00 
2.06528E +00 


1.07123E+00 
0. OOOOOE +00 
0. OOOOOE +00 
1. 46960E+01 
1. OOOOOE +00 
1. OOOOOE +00 


PRESSURE 
(PSI) 

14.6959 

14. 
14, 
14. 
14. 
14, 
14. 
14. 
14. 
14. 


RECESSION OEPTH= 0.00000E+00 RECESSION RATE= 0.00000E +00 SUBLIMATION RATE= 0.QQ0000E+00 
OIN= 9.36450E+00 ORERAO= 6.35502E-01 TQSUBL= 0.OO000E +00 ALPHA= 
QHOT WALL= 0.Q0000E +00 OSI02= 0.O00000E +00 TOQOXIO= O.O00000E +00 BCOF = 
QWB= 0.00000E+00 TOIN= 9.50134E+02 TORERAO= 5.48658E+01 G= 
QBLOCK= 0.00000E+00 TOHW= O0.O00000E+00 HTX -HW=- 1.439 12E +02 PL= 
QSUBL= 0.00000E+00 TORAOX= 1.00500E+03 HTX= 1.29062E£+02 PLPT= 
QOXIO= O.O00000E +00 TQBLOCK= 0.00000E+00 RHOST= 4.85490E+01 WX = 

TEST SPECIMEN PROFILES AT THE ENO OF THE TIME STEP, TIME= 1.01000E+02 
4 TEMPERATURE OENSITY THETA M OOT M COKE MT COKE 

(IN) (OEG-F) (LB/FT3) (LB/FT2-HR) (LB/FT2-HR) (LB/FT2-HR) 
0.00000 654.8 52.40 0.5024 0.2065276E+01 O.O0000000E+00 0.0000000E +00 
0.06897 320.9 84.19 0.9998 0.7749949E-02 O.0000000E+00 0. 0000000E +00 
0.13793 183.2 84.20 1.0000 0.0000000E+00 O0.Q0000000E+00 0.0000000E +00 
0.20690 128.3 84.20 1.0000 O.Q000000E+00 O0.0000000E+00 0.0000000E +00 
0.27586 100.1 84.20 1.0000 0.O0000000E+00 0.O0000000E+00 0. 0000000E +00 
0.34483 85.9 84.20 1.0000 O.0000000E+00 O0.0000000E+00 0.0000000E +00 
0.41379 79.3 84.20 1.0000 0.O0000000E+00 0.0000000E+00 0.0000000E +00 
0.48276 76.5 84.20 1.0000 0.0000000E+00 0.0000000E+00 0.0000000E +00 
0.55172 75.5 84.20 1.0000 0.0000000E+00 0.O0000000E+00 0. 0000000E +00 
0.62069 75.1 84.20 1.0000 O0.Q0000000E+00 0.0000000E+00 0.0000000E +00 
0.68965 75.0 84.20 1.0000 O0.O0000000E+00 0.0000000E+00 0.0000000E +00 


ilove 


14. 


. 75862 
.82759 
.89655 
-3ou02 
.03448 
10345 
. 17241 
.24137 
.31034 
. 37930 
. 44827 
.517293 
.58620 
.65516 
.72419 
. 79309 
.86206 
.93 102 
Pele I 


TEMPERATURE OISTRIBUTION IN THE BACK-UP STRUCTURE 
0. TSQO0000E +02 
0. TSOO0000E +02 


0. TSQ00000E+02 
0. 7500000E +02 


TEMPERATURES AT SELECTEO THERMOCOUPLE LOCATIONS 


PENETRATION 


MAX OEPTH OF 
MAX OEPTH OF 


OEPTH OF 
OEPTH OF 


a | 
wn 
COCCOCCOCOCOOOOOCOOOCOOSO 


OEPTHS 


200.00 (OEG-F) ISOTHERM= 0. 12953E+00 
400.00 (OEG-F) ISOTHERM= 0.52638E-01 


(IN) 


B4.20 1. Q000 
84.20 1.0000 
B4.20 1.0000 
84.20 1.0000 
84.20 1.0000 
B4.20 1.0000 
84.20 1.0000 
B4.20 1.0000 
B4.20 1.0000 
84.20 1.0000 
B4.20 1.0000 
84.20 1.0000 
84.20 1.0000 
84.20 1.0000 
B4.20 1.0000 
B4.20 1.0000 
B4.20 1.0000 
B4.20 1.0000 
B4.20 1.0000 


0. TSQO0000E +02 
0. T500000E +02 


OEPTH 
0.62500000E -01 
0. 12500000E +00 
0. 25000000E +00 
0. SOOOCOOOOE +00 
0. 10000000E+01 


ooooooooo0coocooo0o0ooce 


. COOOODOE +00 
. COOOOODODE +00 
. COOCOOODE +00 
. COOOOODE +00 
. OCOOOOOODE +00 
. COOOOODE +00 
. COOOOOOE +00 
. COOOOOOE +00 
. COOOOOODE +00 
. COOOCOOOE + 00 
. COOOOO00E +00 
. COOOOODE +00 


QOOOOOOE +00 


. OOOOOO0E +00 
. OCOOCOOOE +00 


OOOOO00E +00 


. OOOOOODE +00 
. COOOCOOE + 00 
. COOOOODE + 00 


(OEG-F) 


0. TSQ0000E +02 


OEPTH - (IN), 


200.00 (OEG-F) ISOTHERM= 0. 12953E+00 
400.00 (OEG-F) ISOTHERM= 0.52638E-01 


. OOOOOOOCE +00 
. COOOOO0DE +00 
. COOOOOOE +00 
. OOOOOO0DE +00 
. OOOOOOOE +00 
. COOOOOODE +00 
. COOODOOE +00 
. OOOOOOOCE +00 


- COOOO00E +00 
. COOOOODDE +00 
- COOOOOOE +00 
. COOOOODE +00 
. COOOOOOE +00 
. OCOOOOODOE +00 
. OCOOCOOOE +00 
- OOOOOOOE +00 
. COOOOOOE +00 


oeoooecoceoococooooecccocdecoe 
: 
+ 
o 
oO 
ooooococoocoococococcoceo 


0. TSO0000E +02 


TEMPERATURE 


TEMPERATURE 

0.34391846E +03 
0.20273407E+03 
0. 10902299E+03 
0.76223984E +02 
0.74997742E +02 


. OCOOOOOOE +00 
. COOOOOOE +00 
. OCOOCOOOCE +00 
. OOOOOO00DE +00 
. OOOOOCOOE +00 
. OOOOOOOE +00 
. COOOOOOE +00 
. COOOO00E +00 


. QOOOOOOE +00 
. OOOOOODE +00 
. COOCOOOE +00 
. COOOOODE +00 
. COOOODOOE +00 
. COOOOOOE +00 
. OCOOOOODE +00 


0. TSO00000E+02 


- (OEG-F) 


OEPTH OFO.10000 OENSITY RATIO= 0.Q00000E+00 
OEPTH OFO.90000 OENSITY RATIO= 0.55127E-01 


EQUIVALENT TEST SPECIMEN LOSS= 0.02102 (IN) EQUIVALENT TEST SPECIMEN LENGTH= 1.97898 (IN) 


*eeee% TIME= 1.20000E+02 TIME STEP= 1.00000E +00 

FCONV= 1.0Q00000E +00 FRAQ= 1.00000E+00 VELOCITY= 1.0Q00000E+01 

O CONVECTIVE= 0.00000E+00 O RAOIATIVE= 1.Q00000E+01 ANGLE OF ATTACK= 0.OO000E +00 

GAS ABLATION RATE= 1.94034E+00 CHAR ABLATION RATE= 0.OQ0O000E +00 TOTAL ABLATION RATE= 1.94034E+00 
RECESSION OEPTH= 0.O00000E+00 RECESSION RATE= 0.Q00000E+00 SUBLIMATION RATE= 0.00000E +00 
OIN= 9.34843E+00 ORERAO= 6.51569E-O1 TOSUBL= 0.QOO000E +00 ALPHA= 1.07123E+00 
OHOT WALL= 0.OQ0O000E +00 OSTO02= 0.00000E+00 TOOXIO= 0.O00000E +00 BCOF= 0.00000E +00 
QWB= 0.OO0Q000E +00 TOIN= 1.19727E+03 TORERAO= 6.77347E+01 G= 0.00000E+00 
OBLOCK= 0.OQQOO0E +00 TOHW= 0.00000E +00 HTX -HW=-1.45531E +02 PL= 1.46960E+01 
OSUBL= 0.Q0000E+00 TORAOX= 1.20500E+03 HTX= 1.29062E +02 PLPT= 1.Q0000E +00 
OOXIO= 0.Q00000E +00 TOBLOCK= 0.O0000E +00 RHOST= 4.59570E+0t WxX= 1.O00000E +00 


TZ 


TEST SPECIMEN PROFILES AT THE ENO OF THE TIME STEP, TIME= 1.21000E+02 

X TEMPERATURE OENSITY THETA M OOT M COKE MT COKE PRESSURE 

(IN) (OEG-F) (LB/FT3) (LB/FT2-HR) (LB/FT2-HR) (LB/FT2-HR) (PSI) 
0.00000 660.7 49.84 0.4631 0. 1940341E+01 0.Q000000E+00 0.O0000000E+00 14.6959 
0.06897 344.9 84.17 0.9995 0.1650592E-01 0.O0000000E+00 0.0000000E +00 14.6959 
0.13793 197.5 84.20 1.0000 0.OQ0000000E+00 0.O0000000E+00 0.0000000E+00 14.6959 
0.20690 139.7 84.20 1.0000 0.O0000000E+00 0.0000000E+00 0.0000000E+00 14.6959 
0.27586 108.2 84.20 1.0000 0.O000000E+00 0.O0000000E+00 0.0000000E+00 14.6959 
0.344893 91.0 84.20 1.0000 0.Q000000E+00 0.O0000000E+00 0. 0000000E+00 14.6959 
0.41379 82.1 84.20 1.0000 0.0000000E+00 0.O0000000E+00 0.0000000E+00 14.6959 
0.48276 Ue 84.20 1.0000 0.O0000000E+00 0.0000000E+00 0.0000000E +00 14.6959 
0.55172 76.1 84.20 1.0000 0.O0000000E+00 0.0000000E+00 0.0000000E+00 14.6959 
0.62069 75.4 84.20 1.0000 0.O0000000E+00 0.O0000000E+00 0.0000000E+00 14.6959 
0.68965 hoe 84.20 1.0000 0.Q000000E+00 0.Q000000E+00 0.0000000E +00 14.6959 
0.75862 75.0 84.20 1.0000 0.O000000E+00 0.OQ0000000E+00 0.O0000000E+00 14.6959 
0.82759 75.0 84.20 1.0000 0.Q000000E+00 0.O0000000E+00 0.Q0000000E +00 14.6959 
0.89655 75.0 84.20 1.0000 0.Q000000E+00 0.Q000000E+00 0.O000000E +00 14.6959 
0.96552 15.0 84.20 1.0000 0.O0000000E+00 0.O0000000E+00 0.O0000000E +00 14.6959 
1.03448 75.0 84.20 1.0000 0.Q000000E+00 0.Q000000E+00 0.0000000E +00 14.6959 
1.10345 718.0 84.20 1.0000 0.O0000000E+00 0.0000000E+00 0.0000000E +00 14.6959 
1.17241 75.0 84.20 1.0000 0.0000000E+00 0.0000000E+00 0.O0000000E +00 14.6959 
1.241937 75.0 84.20 1.0000 0.0000000E+00 0.0000000E+00 0.O0000000E+00 14.6959 
1.31034 735.0 84.20 1.0000 0.0000000E+00 0.Q000000E+00 0.0000000E +00 14.6959 
1.397930 13.0 84.20 1.0000 0.OQ0000000E+00 0.O0000000E+00 0. 0000000E+00 14.6959 
1.44827 75.0 84.20 1.0000 0.Q000000E+00 0.Q000000E+00 0.0000000E+00 14.6959 
1.517293 75.0 84.20 1.0000 0.O0000000E+00 0.0000000E+00 0.Q0000000E+00 14.6959 
1.58620 75.0 84.20 1.0000 0.0000000E+00 0.0000000E+00 0. 0000000E +00 14.6959 
1.65516 13.0 84.20 1.0000 0.O0000000E+00 0.0000000E+00 0.0000000E+00 14.6959 
1.724193 75.0 84.20 1.0000 0.O0000000E+00 0.O0000000E+00 0.0000000E+00 14.6959 
1.79309 15.0 84.20 1.0000 0.0000000E+00 0.Q000000E+00 0.0000000E+00 14.6959 
1.86206 Ler) 84.20 1.0000 0.O0000000E+00 0.0000000E+00 0.0000000E +00 14.6959 
1.93102 75.0 84.20 1.0000 0.O0000000E+00 0.O0000000E+00 0.0000000E +00 14.6959 
ieasooo 75.0 84.20 1.0000 0.Q000000E+00 0.0000000E+00 0. O00Q00000E +00 14.6959 


TEMPERATURE OISTRIBUTION IN THE BACK-UP STRUCTURE 


(OEG-F) 


0. TSO0000E +02 0. TSQO0000E +02 0. TSOOOO0E +02 0. TSOOO00E +02 


0. TSOOO00E +02 


0. TSOOO00E +02 
0. TSOOO00E +02 


0. TSOOO00E +02 
0. TSOO000E +02 
TEMPERATURES AT SELECTEO THERMOCOUPLE LOCATIONS OEPTH - (IN), TEMPERATURE - (OEG-F) 
TEMPERATURE 
0.96731006E +03 

0.21829 146E+03 

0. 118390885E+03 
0.77316925E+02 
0.74997742E+02 


DEPTH 
0.62500000E -01 
0. 125Q0000E +00 
0 .25000000E +00 
0. SOOOOOOO0E +00 
0. 10000000E +01 


PENETRATION OEPTHS (IN) 


MAX OEPTH OF 200.00 (OEG-F) ISOTHERM= 0.13675E+00 
MAX OEPTH OF 400.00 (OEG-F) ISOTHERM= 0.56924E-01 


OEPTH OFO. 10000 OENSITY RATIO= 0.00000E+00 
OEPTH OFO.90000 OENSITY RATIO= 0.56176E-01 


OEPTH OF 
OEPTH OF 


200.00 (OEG-F) ISOTHERM= 0.13675E+00 
400.00 (OEG-F) ISOTHERM= 0.56924E-01 


133 


4 


EQUIVALENT TEST SPECIMEN LOSS= 


TEMPERATURE OISTRIBUTION IN THE BACK-UP STRUCTURE 
0. TSOO000E +02 
0. TSOO000E +02 


0. TSQ00000E +02 
0. TSQ0000E +02 


0.02142 (IN) 


0. 7T5O00000E +02 


EQUIVALENT TEST SPECIMEN LENGTH= 


VELOCITY= 


1.97858 (IN) 


1. OOOO00E +01 


ANGLE OF ATTACK= 0.00000E+00 
TOTAL ABLATION RATE= 9.59588E-01 
SUBLIMATIDN RATE= 0.Q00000E+00 


(OEG-F) 


0. TSQ00000E +02 


0. TSO0000E +02 


0. TSO0000E +02 


TEMPERATURES AT SELECTED THERMOCOUPLE LOCATIONS 


OEPTH - 


(IN), 


154 


TEMPERATUR 


**eees TIME= 1, 40000E+02 TIME STEP= 1.Q0000E+00 
FCONV= 1.00000E+00 FRAD= 1.Q00000E+00. 
Q CONVECTIVE= 0.00000E+00 Q RADIATIVE= 1.00000E+01 
GAS ABLATION RATE= 9.59588E-01 CHAR ABLATIDN RATE= 0.Q0000E+00 
RECESSION DEPTH= 0.00000E+00 RECESSIDN RATE= 0.00000E+00 
QIN= 9.25157E+00 QRERAD= 7.48427E-Ot TOSUBL= 0.00000E+00 
QHOT WALL= 0.00000E+00 QSIO2= 0.CO000E +00 TOOXIO= 0. O00000E+00 
QWB= 0.00000E+00 TOIN= 1.32415E&+03 TQRERAD= 8.08477E+01 
QBLOCK= 0.00000E+00 TQHW= 0.0O0000E+00 HTX -HW=- 1.54734E +02 
QSUBL= 0.00000E+00 TQRAOX= 1.40500E+03 HTX= 1.29062E+02 
QOXID= 0.00000E+00 TQBLOCK= 0.00000E+00 RHOST= 4.38073E+01 
TEST SPECIMEN PROFILES AT THE ENO OF THE TIME STEP, TIME= 1.41000E+02 
x TEMPERATURE DENSITY THETA M OOT M COKE 
(IN) (OEG-F) (LB/FT3) (LB/FT2-HR) (LB/FT2-HR) 
0.00000 603. 1 47.66 0.4300 0.9595881E+00 0.0000000E+00 
0.06897 362.0 84.13 0.9988 0.2779917E-01 0.0000000E+00 
0.13793 208.5 84.20 1.0000 0.1114678E-03 0.Q000000E+00 
0.20690 149.7 84.20 1.0000 0.Q0000000E+00 0.0000000E+00 
0.27586 115.8 84.20 1.0000 0.0000000E+00 0.0000000E +00 
0.34483 96.2 84.20 1.0000 0.O0000000E+00 0.0000000E+00 
0.41379 85.3 84.20 1.0000 0.0000000E+00 0.0000000E+00 
0.48276 79.6 84.20 1.0000 0.0000000E+00 0. 0000000E +00 
0.55172 76.9 84.20 1.0000 0.0000000E+00 0.0000000E+00 
0.62069 75.7 84.20 1.0000 0.QO000000E+00 0.0000000E+00 
0.68965 75.3 84.20 1.0000 0.Q000000E+00 0.0000000E+00 
0.75862 75.1 84.20 1.0000 0.0000000E+00 0.0000000E+00 
0.82759 75.0 84.20 1.0000 0.0000000E+00 0.0000000E+00 
0.89655 75.0 84.20 1.0000 0.0000000E+00 0.Q0000000E+00 
0.96552 75.0 84.20 1.0000 0.0000000E+00 0. 0000000E+00 
1.03448 75.0 84.20 1.0000 0.0000000E+00 0.0000000E+00 
1.10345 75.0 84.20 1.0000 0.0000000E+00 0.0000000E+00 
1.17241 75.0 84.20 1.0000 0.0000000E+00 0.Q000000E+00 
1.24197 75.0 84.20 t.0000 0.Q000000E+00 0. 0000000E+00 
1.31094 75.0 84.20 1.0000 0.0000000E+00 0. C000000E +00 
1.37930 75.0 84.20 1.0000 0.O0000000E+00 0.0000000E+00 
1.44827 75.0 84.20 1.0000 0.Q000000E+00 0.0000000E+00 
1.51723 75.0 84.20 1.0000 0.0000000E+00 0.0000000E +00 
1.58620 75.0 84.20 1.0000 0.Q0000000E+00 0.0000000E +00 
1.65516 75.0 84.20 1.0000 0.0000000E+00 0. 0000000E +00 
1.72413 75.0 84.20 1.0000 0.QO000000E+00 0.0000000E +00 
1.79309 75.0 84.20 1.0000 0.0000000E+00 0.0000000E+00 
1.86206 75.0 84.20 t.0000 0.0000000E+00 0. 0000000E +00 
1.93102 75.0 84.20 1.0000 0.Q0000000E+00 0.0000000E +00 
1.99999 75.0 84.20 1.0000 0.0000000E+00 0. 0000000E+00 


E 


oooooo ooo ooo 0oCo COC CoC Coo o0 oo 0000090 


ALPHA= 
BCOF = 
G= 
PL= 
PLPT= 
WxX= 


MT CDKE 
(LB/FT2-HR) 


. COOOCOOOE +00 
. OCOOOCOOE +00 
. COOOOODE +00 


OOOOOOOE +00 


. COOCOODE +00 
. COOOOOOE +00 
. COOOOCOOE +00 
. COOOOOOE +00 
. COOOOOOE +00 
. COOCOOODE +00 
. OCOOOOO0OE +00 
. COOOOOOE +00 
. COOCOOOE +00 
. COOOCOOE +00 
. COOOOOOE + 00 
. COOOOOOE + 00 
. OOOOOOOE +00 
. COOOOOOE +00 
. COOOOO0E +00 
. COOCOOOE + 00 
. COOOCOOE +00 
. COOOOCOE +00 
. OOOOOOOE +00 
. OOCOOOOOE +00 
. COOOOOOE +00 
- COOOOOOE +00 
. OOOOOO0E +00 
. OCOOOOOOE +00 
. COCOCOOE +00 
. OOOOOOOE +00 


1.07123E+00 
0. OOOODE +00 
0. OOOOOE +00 
1.46960E+01 
1. OOOOOE +00 
1. OOOOOE +00 


PRESSURE 
(PSI) 
14.6959 
14.6959 
14.6959 
14.6959 
14.6959 
14.6959 
14.6959 
14.6959 
14.6959 
14.6959 
14.6959 
14.6959 
14.6959 
14.6959 
14.6959 
14.6959 
14.6959 
14,6959 
14.6959 
14.6959 
14.6959 
14.6959 
14.6959 
14.6959 
14.6959 
14.6959 
14.6959 
14.6959 
14.6959 
14.6959 


0. TSOOQ00E +02 


- (DEG-F) 


PENETRATION QEPTHS 


MAX OEPTH OF 
MAX OEPTH OF 


DEPTH OF 
DEPTH OF 


200.00 (DEG-F) ISOTHERM= 0.14789E+00 
400.00 (DEG-F) ISOTHERM= 0.58101E-01 


OE 


PTH 


0.62500000E -01 
0. 12500000E +00 
0. 2S5000000E +00 
0. SOOOOOOOCE +00 
0. 10000000E +0 1 


(IN) 


EQUIVALENT TEST SPECIMEN LOSS= 


eee 


eee TIME= 


GAS A8LATION RATE= 


TEST SPECIMEN 


Bhs 5 5 ©) ) () () (S) (6) 6) (6) (6) (6) (6) 6S) (6) () (0) 


RECESSION 


QIN= 

OHOT WALL= 
QW8 = 
OBLOCK= 
QSUBL= 
QOxID= 


xX 
(IN) 
. 00000 
.06897 
.13793 
. 20690 
.27586 
34483 
.41379 
48276 
.§5172 
.62069 
.68965 
. 75862 
.82759 
. 89655 
.96552 
03448 
. 10345 
.17241 
.24137 
.31034 


1. GOOOOE +02 TIME STEP= 1.00000E+00 
FCONV= 1.00000E+00 FRAG= 1.Q00000E+00 VELOCITY= 1.Q00000E+01 
Q CONVECTIVE= 0.00000E+00 Q RAGIATIVE= 1.00000E+01 ANGLE OF ATTACK= 0.O00000E+00 
8.66288E-01 CHAR A8LATION RATE= 0.00000E+00 TOTAL ASLATION RATE= 8.66288E-01 
CEPTH= 0.00000E+00 RECESSION RATE= 0.00000E+00 SUSLIMATION RATE= 0.00000E+00 
9.2208 1E£+00 QRERAD= 7.79191E-01 TQSUBL= 0.00000E+00 ALPHA= 1.07123E+00 
0. OOOC00E +00 QSI02= 0.00000E+00 TOQOXID= 0.00000E+00 8COF= 0.O00000E +00 
0. OOOOOE +00 TOIN= 1.51149€+09 TORERAG= 9.35149E+01 G= 0.00000E+00 
0. COOCO0E+00 TQHW= O.O0000E +00 HTX -HW=- 1.57477E+02 PL= 1.46960E+01 
0. OOO00E +00 TORAOX= 1.60500E+03 HTX= 1.29062E+02 PLPT= 1.00000E+00 
0 .OOOOOE +00 TOBLOCK= 0.00000E+00 RHOST= 4.17116E+01 WX= 1.O0O0000E +00 
PROFILES AT THE ENO OF THE TIME STEP, TIME= 1.61000E+02 
TEMPERATURE DENSITY THETA M DOT M COKE MT COKE PRESSURE 
(DEG-F) (L8/FT3) (LB/FT2-HR) (L8/FT2-HR) (L8/FT2-HR) (PSI) 
587.3 45.57 0.3993 0.8662884E+00 0O.0000000E+00 0.0000000E +00 14.6959 
372.2 84.07 0.9979 0.3760283E-01 O0.0000000E+00 0.0000000E +00 14.6959 
217.0 84.20 1.0000 0.1636567E-03 0.Q0000000E+00 0.0000000E +00 14.6959 
158.3 84.20 1.0000 0.O0000000F+00 0.0000000E+00 0. 0000000E +00 14.6959 
122.9 84.20 1.0000 0.0000000E+00 0.0000000E+00 0.0000000E +00 14.6959 
101.4 84.20 1.0000 0.O0000000E+00 0.0000000E+00 0.0000000E +00 14.6959 
88.7 84.20 1.0000 0.0000000E+00 0.0000000E+00 0.0000000E +00 14.6959 
81.6 84.20 1.0000 0.0000000E+00 0.0000000E+00 0.0000000E +00 14.6959 
78.0 84.20 1.0000 0.0000000E+00 0O.O0000000E+00 0. 0000000E +00 14.6959 
76.3 84.20 1.0000 0.0000000E+00 0.0000000E+00 0.0000000E+00 14.6959 
75.5 84.20 1.0000 0.Q000000E+00 0.0000000E+00 0.0000000E+00 14.6959 
7§.2 84.20 1.0000 0.0000000E+00 0.0000000E+00 0.0000000E +00 14.6959 
75.1 84.20 1.0000 0.Q000000E+00 0.0000000E+00 0.0000000E +00 14.6959 
75.0 84.20 1.0000 0.0000000E+00 0.0000000E+00 0.0000000E +00 14.6959 
75.0 84.20 1.0000 0.Q0000000E+00 0.0000000E+00 0.0000000E+00 14.6959 
75.0 84.20 1.0000 0.0000000E+00 0.0000000E+00 0.0000000E +00 14.6959 
75.0 84.20 1.0000 0.0000000E+00 0.0000000E+00 0.0000000E +00 14.6959 
75.0 84.20 1.0000 0.Q0000000E+00 0.0000000E+00 0.0000000E +00 14.6959 
75.0 84.20 1.0000 0.0000000E+00 0.0000000E+00 0.0000000E +00 14.6959 
75.0 84.20 1.0000 O0.O0000000E+00 0.0000000E+00 0.0000000E +00 14.6959 


0.02172 (IN) 


200.00 (OEG-F) ISOTHERM= 0.14789E+00 
400.00 (OEG-F) ISOTHERM= 0.61154E-01 


EQUIVALENT TEST SPECIMEN LENGTH= 


Se. 


TEMPERATURE 


0.38089697E+03 
0.23005846E +03 


0. 12683690E+03 


0.78778198E+02 
0.74997742E+02 


DEPTH OFO.10000 OENSITY RATID= 0.OQ00000E+00 
DEPTH DOFO.90000 DENSITY RATIO= 0.56981E-01 


1.97828 (IN) 


eeeeee 


.37930 
- 44827 
Bi an ee? 4 | 
. 58620 
.65516 
.724193 
. 79309 
. 86206 
-939102 
Bede pele 


Ce ee ee ee 


TEMPERATURE GISTRIBUTION IN THE BACK-UP STRUCTURE 
0. TSO00000E +02 


0. T500000E +02 
0. TSOO000E +02 


~J] 
on 
oooo0o0o9*”#§*n#ooo 


0. TSOO000E +02 


84.20 1.0000 
84.20 1.0000 
84.20 1.0000 
84.20 1.0000 
84.20 1.0000 
84.20 1.0000 
84.20 1.0000 
84.20 1.0000 
84.20 1.0000 
84.20 1.0000 


OoOooo0o0o0o°o0co°o 


- COOOOOOE +00 
. OCOOOOOOE +00 
. OOOOOCOOCE +00 
. OOOOOOOE +00 
. OOOOOOOE +00 


OOOOOOOE +00 


. OOOOOODE +00 
. OOOOOOOE +00 
. OOOOCOOCE +00 
. OOOOOOOE +00 


(DEG-F ) 


oooo0o0co$c$jo$o 


.OOOOOO00E +00 
. OOOOOOOE +00 
. OCOOCOOOE +00 
- OCOOOOOOE +00 
. COOOOOOE +00 
. OCOOOOOOE +00 
. OOOOOOOE +00 
. OCOOOCOOOE +00 
. OCOOOOOODE +00 
- COOOOO0E +00 


oooo0o°coe°cdo]o 


0.750000 


OE +02 


0. TSO0000E +02 


TEMPERATURES AT SELECTED THERMOCOUPLE LOCATIONS 


PENETRATION DEPTHS 


MAX GEPTH OF 
MAX DEPTH OF 


OEPTH OF 
OEPTH OF 


EQUIVALENT TEST SPECIMEN LOSS= 


TIME= 


RECESSION 


OIN= 

OHOT WALL= 
OWB = 
OBLOCK= 
QSUBL = 
QoxIG= 


1. 


F 


TEST SPECIMEN 


X 
(IN) 
0.00000 
0.06897 
0.13793 


oo0o0o00 


(IN) 


OEPTH 
- 6>2500000E -01 
. 12500000E +00 
- 25000000E +00 
. SOOOOOOOCE +00 
- JOOOOOOCOE +0 1 


200.00 (GQEG-F) ISOTHERM= 0. 15791&+00 
400.00 (OQEG-F) ISOQTHERM= 0.60053E-01 


8O0000E +02 


CONV= 


0.02199 


TIME STEP 


1. OOOOOE +00 
O CONVECTIVE= 0.00000E+00 
GAS ABLATION RATE= 8.22016E-01 


(IN) 


= 1.00000 


FRA 


O RAOIATIVE= 
CHAR ABLATION RATE= 


0. 7S5OO0000E +02 


OEPTH - 


200.00 (QEG-F) ISOTHERM= 0. 15791&+00 
400.00 (DEG-F) ISOTHERM= 0.63313E-01 


0. 7500000E +02 


(IN), TEMPERATURE 
TEMPERATURE 

0.38982471E+03 
0.23875844E+03 
0. 13450587E+03 
0. 80555649E +02 
0.74998291&+02 


- OOOOOOOE +00 
- COOOOOOE +00 
. COOOOOCOE +00 
. OOOOOO00E +00 
- OOOOOOOE +00 
- OOOOCOOE +00 
. COOOOOCE +00 
- OOOOOOOE +00 
. OOOOOOOE +00 
. OCOOOOOOE +00 


14.6959 
14.6959 
14.6959 
14.6959 
14.6959 
14.6959 
14.6959 
14.6959 
14.6959 
14.6959 


0. TS500000E +02 


- (OEG-F) 


QEPTH OFO. 10000 DENSITY RATIO= 0.00000E +00 
OEPTH OFO.90000 OENSITY RATIO= 0.57683E -O1 


EQUIVALENT TEST SPECIMEN LENGTH= 


E+00 


O= 1.QQ0000E +00 


1.0O0000E +01 
0. OOOO0E +00 


P56 


VELOCITY= 


1.97801 (IN) 


1. OOOOOE +0 1 


ANGLE OF ATTACK= 0.Q0000E +00 
TOTAL ABLATION RATE= 8.22016E-01 


QEPTH= 0.00000E+00 RECESSION RATE= 0.00000E+00 SUBLIMATION RATE= 0.00000E+00 
9.20052E +00 ORERAG= 7.99479E-01 TQSUBL= 0O.O0000E+00 ALPHA= 1.07123E£+00 
0.O0000E +00 OS102= 0.Q0000E +00 TOOXIG= 0.00000E+00 BCOF= 0.00000E+00 
0 .OO0000E +00 TOIN= 1.69878E+03 TORERAG= 1.06215&+02 G= 0.00000E +00 
0 .OO0000E +00 TOHW= 0. O0000E +00 HTX-HW=-1.59244E+02 PL= 1.46960E+01 
0 .QCOOO0E +00 TORAOX= 1.80500E+03 HTX= 1.29062E+02 PLPT= 1.Q00000E+00 
0.O00000E +00 TQBLOCK= 0.O0000E +00 RHOST= 3.98627E+01 WX= 1.00000E+00 
PROFILES AT THE ENO OF THE TIME STEP, TIME= 1.81000E+02 
TEMPERATURE OENSITY THETA M OOT M COKE MT COKE PRESSURE 
(DEG-F) (LB/FT3) (LB/FT2-HR) (LB/FT2-HR) (LB/FT2-HR) (PSI) 
579.7 43.71 0.3693 0.8220159E+00 O.0000000E+00 0.0000000E +00 14.6959 
379.5 84.00 0.9967 0.4650396E-01 0.0000000E+00 0.0000000E+00 14 6959 
223.8 84.20 1.0000 0.2217318E-03 O.Q000000E+00 0. 0000000E+00 14.6959 


pr eee — 
» » | | = | = 


TEMPERATURE OISTRIBUTION IN THE BACK-UP STRUCTU 
0. TS500000E +02 0. TSQOQ000E +02 0. TSOOO000E +02 
0. TS500000E +02 0. TSQOOO00E +02 0. TSOOOO0E +02 


TEMPERATURES AT SELECTEO THERMOCOUPLE LOCATIONS 


OEPTH 
0 .62500000E -01 
0. 12500000E +00 
0. 25000000 +00 
0. SOOOOOOOE +00 
0. 1O000000E +01 


PENETRATION OEPTHS (IN) 


MAX OEPTH OF 
MAX OEPTH OF 


RE (OEG-F) 


0. TSQO000E +02 


OEPTH - 


200.00 (OEG-F) ISOTHERM= 0.16621E+00 
400.00 (DEG-F) ISOTHERM= 0.64830E-01 


(IN), 


0. TS5Q00000E +02 


TEMPERATURE 


TEMPERATURE 

0.39635254E+03 
0. 24559634E +03 
0. 14138330E+03 
0.82579147E+02 
0. 75000763E+02 


0.20690 165.7 84.20 1.0000 0.Q000000E+00 0.O0000000E+00 0.0000000E +00 14.6959 
0.27586 129.3 84.20 1.0000 0.O0000000E+00 0.O0000000E+00 0. O0000000E +00 14.6959 
0.34483 106.4 84.20 1.0000 0.0000000E+CO 0.0000000E+00 0.0000000E +00 14.6959 
0.41379 92.3 84.20 1.0000 0.O0000000E+00 0.0000000E+00 0. 0000000E+00 14.6959 
0.48276 83.9 84.20 1.0000 0.O0000000E+00 0.0000000E+00 0.0000000E +00 14.6959 
0.55172 13973 84.20 1.0000 0.O0000000E+00 0.0000000E+00 0. 0000000E+00 14.6959 
0.62069 77.0 84.20 1.0000 0.O0000000E+00 0.Q0000000E+00 0.0000000E+00 14.6959 
0.68965 75.8 84.20 1.0000 0.0000000E+00 0.0000000E+00 0.0000000E+00 14.6959 
0.75862 78.3 84.20 1.0000 0.O0000000E+00 0.0000000E+00 0.0000000E +00 14.6959 
0.82759 iho 84.20 1.0000 0.0000000E+00 0.Q000000E+00 0.0Q000000E +00 14.6959 
0.89655 13.0 84.20 1.0000 0.O0000000E+00 0.Q000000E+00 0.0000000E +00 14.6959 
0.96552 715.0 84.20 1.0000 0.Q000000E+00 0.O0000000E+00 0.0000000E +00 14.6959 
1.03448 75,0 84.20 1.0000 0.Q000000E+00 0.0000000E+00 0.0000000E +00 14.6959 
1.10345 719.0 84.20 1.0000 0.Q000000E+00 0.O0000000E+00 0.0000000E +00 14.6959 
1.17241 75.0 84.20 1.0000 0.0000000E+00 0.Q000000E+00 0.0000000E +00 14.6959 
1.24137 75.0 84.20 1.0000 0.O0000000E+00 0.0000000E+00 0.O0000000E +00 14.6959 
1.31034 Ta50 84.20 1.0000 0.Q000000E+00 0.O0000000E+00 0.O0000000E +00 14.6959 
1.37930 75.0 84.20 1.0000 0.0000000E+00 0.0000000E+00 0.0000000E+00 14.6959 
1.44827 715.0 84.20 1.0000 0.Q0000000E+00 0.O0000000E+00 0.0000000E +00 14.6959 
1.51723 75.0 84.20 1.0000 0.0000000E+00 0.0000000E+00 0.0000000E +00 14.6959 
1.58620 75.0 84.20 1.0000 0.Q000000E+00 0.O0000000E+00 0. O0000000E +00 14.6959 
1.65516 UCTS) 84.20 1.0000 0.0000000E+00 0.O0000000E+00 0.0000000E +00 14.6959 
1.72413 75.0 84.20 1.0000 0.O0000000E+00 0.O0000000E+00 0.0000000E +00 14.6959 
1.79309 Ta.0 84.20 1.0000 0.0000000E+00 0.O0000000E+00 0.0000000E +00 14.6959 
1.86206 75.0 84.20 1.0000 0.Q0000000E+00 0.Q000000E+00 0. 0Q000000E +00 14.6959 
1.93102 7520 84.20 1.0000 0.O0000000E+00 0.Q000000E+00 0.0000000E +00 14.6959 
1.99999 75.0 84.20 1.0000 0.0000000E+00 0.0000000E+00 0.0000000E+00 14.6959 


0. TSOOO000E +02 


- (OEG-F) 


OEPTH OFO.10000 OGENSITY RATIO= 0.00000E+00 
OEPTH OFO.90000 GENSITY RATIO= 0.58333E-01 


0.16621E+00 
0.61896E-01 


OEPTH OF 
OEPTH OF 


200.00 (DEG-F) ISOTHERM= 
400.00 (OEG-F) ISOTHERM= 


EQUIVALENT TEST SPECIMEN LOSS= 0.02224 (IN) EQUIVALENT TEST SPECIMEN LENGTH= 1.97776 (IN) 


+#ee¢% TIME= 2.00000E+02 TIME STEP= 1.00000E +00 
FCONV= 1.00000E +00 FRAQ= 1.00000E +00 VELOCITY= 1.OO000E+01 
Q CONVECTIVE= 0.O0000E +00 Q RAOIATIVE= 1.00000E+01 ANGLE OF ATTACK= 0.00000E+00 
GAS ABLATION RATE= 7.60770E-01 CHAR ABLATION RATE= 0.Q00000E +00 TOTAL ABLATION RATE= 7.60770E-01 


IES 


RECESSION OEPTH= 0.Q0000E+00 


OIN= 

OHOT WALL= 
OWB= 
OBLOCK= 
OSUBL = 
QOx10= 


9.17898E+00 
0 .OQOOOE +00 
0. 00000E+00 
0 .OO000E+00 
0 .OOO00E +00 
0 .COOOOE +00 


QRERAD= 8 
OSIO2= 0 
TOIN= 1 
TOHW= O 
TORAOX= 2 
TQBLOCK= 0 


RECESSION RATE= 0.Q0000E +00 


-21017E-01 TQSUBL= 0.Q00000E +00 
. OOOOOE +00 TOOXID= 0.QOO00E +00 
. 88602E+03 TORERAO= 1.18978E+02 
. OOOOOE +00 HTX -HW=-1.61086E+02 
.OOSOOE+03 HTX= 1.29062E+02 
. OOOOOE +00 RHOST= 3.79606E+01 


TEST SPECIMEN PROFILES AT THE ENO OF THE TIME STEP, TIME= 2.01000E+02 


x 
(IN) 
.00000 
.06897 
.19793 
. 20690 
. 27586 
9448 
.4197 
.48276 
.§5172 
.62069 
.68965 
. 75862 
.82759 
.89655 
96552 
.039448 
10345 
M1241 
241937 
.31034 
.37930 
44827 
.§1723 
.§8620 
.65516 
.72413 
.79309 
.86206 
.93102 
.99999 


Jaa el on OOO COSCOO CO OO OCS 


TEMPERATURE OISTRIBUTION IN THE BACK-UP STRUCTURE 
0 . 7T500000E +02 
0. T500000E +02 


0. 7TS00000E+02 
0. TSOOO00E +02 


TEMPERATURES AT SELECTED THERMOCDUPLE LOCATIONS 


TEMPERATURE 


(OEG-F) 
572. 
384. 
229. 
172) 
1395. 


~J 
: wn 
oeoooecooooo oo oo COO aN MU wMWWAWNNA MAS 


© oO oo 


OENSITY THETA 
(LB/FT3) 
41.80 0.3392 
83.91 0.9953 
84.20 1.0000 
84.20 1.0000 
84.20 1.0000 
84.20 1.0000 
84.20 1.0000 
84.20 1.0000 
84.20 1.0000 
84.20 1.0000 
84.20 1.0000 
84.20 1.0000 
84.20 1.0000 
84.20 1.0000 
84.20 1.0000 
84.20 1.0000 
84.20 1.0000 
84.20 1.0000 
84.20 1.0000 
84.20 1.0000 
84.20 1.0000 
84.20 1.0000 
84.20 1.0000 
84.20 1.0000 
84.20 1.0000 
84.20 1.0000 
84.20 1.0000 
84.20 1.0000 
84.20 1.0000 
84.20 1.0000 


DEPTH 
. 62500000 -01 
. 12500000E +00 
25000000E +00 
. SOOOCOOO0E +00 
. 1OOOO000E+01 


0. 7500000E+02 
0. 7T500000E +02 


oooooo0ooo0ooo0o0oo0oooeo0oo0ooeo0ocoewooo0o0oo0o00o0o°o°o 


M OOT 
(LB/FT2-HR) 


. 7607699E+00 
.5418284E-01 
.36392151E-03 
. OOOOOOOE +00 
. COOCOOODE +00 
. COOOOOOE +00 
. COOOCOOE +00 
. COOOOOOE +00 
. COOOOODE +00 
- COOOOOOE +00 
. COOCOOOE +00 
. OOOOOOODE +00 
. OOOOOO0E +00 
. OCOOOOOOE +00 
. OCOOOOOOE +00 
-OOOCOOOE +00 
. OOOCOOOE +00 
. OOOOCOOE +00 
. OCOOOCOODE +00 
. OCOOOOOOE +00 
. OCOOOOOOE +00 
. COOOCOOE +00 
. OCOOOOOOE +00 
. COOOCOOE +00 
. OOOCOOOE +00 
. OCOOOOOOE +00 
. COOOOOOE +00 
. OOOOOOOE +00 
. QOOOCOODE +00 
. COOOOOOE +00 


(OEG-F) 


oooooo0cooo0ooco0co0ocoedcooo0oo0o0o0o0o0o0o0000°o 


0. TSQOOO0E +02 


DEPTH - (IN), 


L3s 


. OOOCOOOE +00 
. OOOOOOOE +00 
. OOOOOOOE +00 
. COOOOOOE +00 
. OCOOOOOOE +00 
- OCOOOOOODE +00 
. OCOOOCOOODE + 00 
. COOCOODE +00 
. OOOOO00E +00 
- COOOCOOE +00 
. OOOOOOOE +00 
. COCOOOOE +00 
. QOOOOOODE +00 
. COOOOO0E +00 
- OCOOOOOOE +00 
- COOOOOOE + 00 
. OOOOOODOE +00 
. OOOCOCOOE +00 
. COOOOCOE +00 
. COOOOODE +00 
. OCOOOOOOE +00 
. OOOOCOOOE +00 
. OCOOOOODE +00 
. OOOCOODE +00 
. OOOOOODE +00 
. COOOCOOE + 00 
. OCOOOOOCE +00 
. OCOOOOOODE +00 
. COOOCODE +00 
. COOCOOOE +00 


M COKE 
(LB/FT2-HR) 


0. 7500000E +02 


TEMPERATURE 


TEMPERATURE 

0.40089722E+03 
0.25115197E+03 
0.14755309E +03 
0.84776962E+02 
0. 75009003E +02 


ooo0oo0oo0oo0oo0oooeooeoeoeocdcoecdco~o0o0o0o0o0o0o000009o 


ALPHA= 
BCOF = 
G= 
PL= 
PLPT= 


WX= 


MT COKE 
(LB8/FT2-HR) 


. COOOOOOE +00 
. OCOOOOO0E +00 
. COOOOOOE +00 
. COOOCOOE +00 
. OOOCOODE +00 


. COOCOOOE +00 
. OOOOOOOE +00 
. COOOCOOCOE +00 
. OCOOOOODE +00 
- OOOOOODE +00 
. OCOOOOODE +00 
. COOOOOOE +00 
. OOOOO0DE +00 
. COOOOOOE +00 
. COOOOOOE +00 
. COOOOOOE +00 
. COOOOODE +00 
. COOCOOOE +00 
. COOOOOOE +00 
. OOOOCOOOE +00 
. OOOOOOODE +00 
. OOOOCOOE +00 
. COOOODDE +00 
. OOOOOOOE +00 


be 
0. 
0. 
1: 
12 
1. 


SUBLIMATION RATE= 0.00000E+00 


07123E+00 
OOOOOE +00 
OOOOOE +00 
46960E+01 
OOOOOE +00 
OOOOOE +00 


PRESSURE 


(PSI) 


14 
14 


0. 7500000E +02 


- (OEG-F) 


.6959 
.6959 
14. 
14. 
.6959 
.6959 
.6959 
.6959 
.6959 
.6959 
.6959 
.6959 
-6959 
.6959 


6959 
6959 


6959 


.6959 
.6959 
.6959 
.6959 
.6959 
.6959 
.6959 
.6959 
NSE | 
.6959 
.6959 
.6959 
.6959 
.6959 
.6959 


PENETRATION DEPTHS 


EQUIVALENT TEST SPECIMEN LOSS= 


MAX DEPTH OF 
MAX DEPTH OF 


DEPTH OF 
DEPTH OF 


200.00 (DEG-F) ISOTHERM= 0.17340E+00 
400.00 (DEG-F) ISOTHERM= 0.63338E-01 


eeeeee TIME= 2.20000E+02 


GAS ABLATION RATE= 7.54362E-02 
RECESSION DEPTH= 0.00000E+00 


TEST SPECIMEN 


FCONV= 


(IN) 


TIME STEP= 


1. OOOO0E +00 


Q CONVECTIVE= 0.00000E+00 


QIN=-1.67083E -01 
QHOT WALL= 0.00000E+00 
QWB= 0.00000E +00 


OBLOCK= O. 


OOOOOE +00 


DSUBL= 0.O00000E +00 
QOXID= 0.O00000E +00 


xX 
(IN) 
.00000 
.06897 
.13793 
. 20690 
.27586 
.34483 
.41379 
.48276 
.55172 
.62069 
.68965 
. 75862 
.82759 
.89655 
.96552 
.03448 
. 10345 
.17241 
.24137 
.31034 
.37930 
.44827 
.51723 
.58620 
.65516 
.72413 
.79309 
. 86206 
.93102 


TEMPERATURE 


(DEG-F) 
362. 
356.2 
234. 
177. 
140. 


Ww 


SCOOKOSCOCCCOCCOCSCOH-aMOMMNOSLaADWY 


(LB 


41. 
83. 
84. 
84. 
84. 
84. 
84. 


QRERAD= 
QS102= 
TOIN= 
TOHW= 
TQRAOX= 
TQBLOCK = 


OENSITY 


/FT3) 


. . . . @ . .- © e 


0.02247 (IN) 


1.67083E-01 
0. OOO00E +00 
1.88574E+03 TQRERAD= 
0 .OOOO0E+00 
2 .O01000E +03 HTX = 
0 .OOOOOE +00 RHOST= 


THETA 
.3375 
.9943 


.0000 
.0000 


0000 


.0000 
0000 
. 0000 
.0000 


0000 


PROFILES AT THE ENO OF THE TIME STEP, 


FRAD= 


ececooococeccococoocoococoocoooo$nc 


200.00 (QEG-F) ISOTHERM= 0. 17340E+00 
400.00 (DEG-F) ISOTHERM= 0.65940E-01 


EQUIVALENT TEST SPECIMEN LENGTH= 


1. OOOOOE +00 


M DOT 
(LB/FT2-HR) 


.7543623E-01 
.2610629E-01 
.4598494E-03 
. OOOOOODE +00 
- OOOOOO0E +00 
- COOOOOOCE +00 
. COOOOCODE +00 
. COOOO00E +00 
- OCOOOOO0DE +00 


OOOOOO0E +00 


. COOOOO0E +00 
- OOOOO00E +00 
. COOOOC0E +00 


OOOOCOODE +00 


. QOOOO0DE +00 
- OOOOOODOE +00 
- COOOO00E +00 


OOOOOOOCE +00 


. OOOCOOO0E +00 
- OOOOOOOCE +00 
- COOOOODE +00 
- OOOOO00DE +00 
. COOOOODE +00 
. COOOOODDE +00 
. COOOOD0E +00 
. OOOOOODE +00 


OOOOOO0E +00 


. COOOCOOOCE +00 
. OOOOOODE +00 


ese, 


0. OOOO0E +00 


ceoooccoocooococcoccoocoococoococo 


1. OOOO0E +00 
Q RADIATIVE= 0.O00000E +00 
CHAR ABLATION RATE= 0.Q00000E+00 

RECESSION RATE 


TQSUBL= 0.Q0000E+00 
TQOXID= 0.00000E+00 
1.24258E+02 
HTX -HW=-7 .33060E+01 
1.29062E+02 
3.76622E+01 


TIME= 2.2 1000E+02 


M COKE 
(LB/FT2-HR) 


. OOOOOO0E +00 
- COOOOOCE +00 
. COOOOO0E +00 
-. OCOOO000E +00 
. COOOO00E +00 
- OOOOOODE +00 
- COOODOOCE +00 
. OOOOOODE +00 
- OOOOOOODE +00 
- COOOOODE +00 
. COOOOO0E +00 
- OOOCOOOOCE +00 
- COOOOODE +00 
- OOOOOO0E +00 
. OCOOOOODE +00 
. QOOOOODE +00 
. COOOOO0E +00 
. OCOOOOODE +00 
. OOOOOO0E +00 
- OOOOOODE +00 
- COOOOO00E +00 
. OOOOOO0E +00 
. COOOOODE +00 
. COOOO00DE +00 
. OOOOOODE +00 
. OOOOOOCOCE +00 
. OCOOOO00E +00 
- COOOOODE +00 
- COOOOOOCE +00 


oococooccooccocoocococococoococjoc$ce 


VELOCITY= 


ALPHA= 
BCOF= 
G= 

PL= 
PLPT= 
WX= 


MT COKE 
(LB/FT2-HR) 


. OOOOOOOE +00 
. COOOOOOE +00 
. COOOOD0DE +00 
. OCOOOOOOE +00 
- COOOQODE +00 
- COOOOODE +00 
- OOOOO0DE +00 
. OOOOODDODE +00 
- OOOOOODDE +00 
. OOOOOOOCE +00 
- OOOOOOOE +00 
- OOOOOOOCE +00 
. COOOCOODE +00 
- OCOOOOOCE +00 
. COOOOO0DE +00 
. COOOOODOE +00 
. COOOOOODE +00 
. COOOOOOE +00 
. COOOOODDE +00 
. OOOOODOOCE +00 
- COOOO00E +00 
. COOOODOOE +00 
. OOOOOOCE +00 
. COOOCOOE +00 
. COOOOOCE +00 
- OCOOOOODE +00 
. COOOOO0E +00 
. COOOOOCE +00 
. COOOOOO0E +00 


DEPTH DFO. 10000 OENSITY RATID= 0.O00000E+00 
DEPTH DFO.90000 DENSITY RATIO= 0.58944E-01 


1.97753 (IN) 


1. OOO00E+01 


1 
0 


1 
1 
1 


.07123E+00 
. COOODE +00 
0. OOOO0E +00 
. 46960E +01 
- OOOOOE +00 
. OOOOOE +00 


ANGLE OF ATTACK= 0.Q00000E+00 
TOTAL ABLATION RATE= 7.54362E-02 
SUBLIMATION RATE= 0.00000E+00 


PRESSURE 
(PSI) 


14. 
14 
14 
14 
14 
14 


6959 


.6959 
.6959 
.6959 
.6959 
.6959 
20909 
.6959 
2Gg59 
.6959 
.6959 
.6959 
.6959 
.6959 
.6959 
-oga9 
.6959 
-6959 
Pogo 
76959 
A}: bb] 
.6959 
.6959 
.6959 
.6959 
.6959 
.6959 
.69359 
.6959 


1.99999 13.0 84.20 1.0000 0.Q000000E+00 0.Q000000E+00 0.0000000E+00 14.6959 


TEMPERATURE OISTRIBUTION IN THE BACK-UP STRUCTURE (OEG-F) 
0. TSQOO000E +02 0. TSOO000E +02 0. 7T5Q0000E +02 0. TSQO000E +02 0. TSOOOQ00E +02 0. TSQOQ000E +02 
0. 7T5Q0000E +02 0 . 7TSO00000E +02 0. T500000E +02 


TEMPERATURES AT SELECTEO THERMOCOUPLE LOCATIONS OEPTH - (IN), TEMPERATURE - (OEG-F) 


OEPTH TEMPERATURE 
0.6 2500000E -01 0.36 167 700E +03 
0. 12500000E +00 0.25270477E+03 
0. 25000000E +00 0. 15312778E+093 
0. SOOOOOOOE +00 0.870902 10E +02 
0. 10000000E +01 0.75024841E+02 


PENETRATION OEPTHS (IN) 


MAX OEPTH OF 200.00 (OEG-F) ISOTHERM= 'O. 18012E+00 
MAX OEPTH OF 400.00 (OEG-F) ISOTHERM= 0.65940E -01 


OEPTH OF 200.00 (OEG-F) ISOTHERM= 0. 18012E+00 OEPTH OFO. 10000 OENSITY RATIO= 0. O00000E+00 
OEPIH OF 400.00 (OEG-F) ISOTHERM= 0.Q0000E +00 OEPTH OFO. 90000 OENSITY RATIO= 0.59065E-01 
EQUIVALENT TEST SPECIMEN LOSS= 0.02252 (IN) EQUIVALENT TEST SPECIMEN LENGTH= 1.97748 (IN) 
***40e¢ TIME= 2.40000E+02 TIME STEP= 1.Q0000E +00 
FCONV= 1.Q00000E+00 FRAO= 1.Q0000E +00 VELOCITY= 1.00000E+01 
Q CONVECTIVE= 0.Q0000E+00 Q RAOTATIVE= 0O.Q00000E +00 ANGLE OF ATTACK= 0.00000E+00 
GAS ABLATION RATE= 2.64821E-02 CHAR ABLATION RATE= 0.OQOQO0E +00 TOTAL ABLATION RATE= 2.64821E-02 
RECESSION OEPTH= 0. Q0000E+00 RECESSION RATE= 0.Q0000E+00 SUBLIMATION RATE= 0.Q00000E+00 
OIN=-1.19729E -01 ORERAO= 1.19729E-01 TQSUBL= 0.00Q000E+00 ALPHA= 1.07123E+00 
OHOT WALL= 0.00000E+00 QSI02= 0.O0000E+00 TQOXIO= O.QO000E+00 BCOF= 0.00000E +00 
OWB= O.OOO000E +00 TOIN= 1.88296E+03 TORERAO= 1.27045E+02 G= 0.OQ0000E +00 
QBLOCK= 0.00000E +00 TQHW= 0. OQ0O000E +00 HTX -HW=-6 .02842E+01 PL= 1.46960E+0O1 
QSUBL= O.OOO00E +00 TQRAOX= 2.01000E+03 HTX= 1.29062E+02 PLPT= 1.00000E +00 
QOXIO= 0.O00000E +00 TQBLOCK= O.O0000E +00 RHOST= 3.76453E+01 WX= 1. OOOOOE +00 


TEST SPECIMEN PROFILES AT THE ENO OF THE TIME STEP, TIME= 2.41000E+02 


X TEMPERATURE OENSITY THETA M OOT M COKE MT COKE PRESSURE 
(IN) (OEG-F) (L8/FT3) (L8/FT2-HR) (L6/FT2-HR) (L8/FT2-HR) (PST) 
0.00000 311.3 41.64 0.3373 0.264B8206E-01 O.Q0000000E+00 0. Q000000E +00 14.6959 
0.06897 323.8 83.81 0.9939 0.1134093E-01 0O.Q000000E+00 0.O000000E +00 14.6959 
0.13793 238.1 B4.20 1.0000 0.5390195E-03 0.Q000000E+00 0.0000000E +00 14.6959 
0.20690 182.9 84.20 1.0000 0.O0000000E+00 0O.Q000000E+00 0.O0000000E +00 14.6959 
0.27586 145.6 84.20 1.0000 0.O0000000E+00 0.O0000000E+00 0.0000000E +00 14.6959 
0.344893 120.0 84.20 1.0000 0.QO000000E+00 0.Q000000E+00 0. O0000000E +00 14.6959 
0.41379 10279 84.20 1.0000 0.0000000E+00 0.O0000000E+00 0.O0000000E +00 14.6959 
0.48276 3125 84.20 1.0000 0.Q0000000E+00 0.0000000E+00 0.0000000E +00 14.6959 
0.55172 84.3 84.20 1.0000 0O.OQ000000E+00 0.0000000E+00 0. O000000E +00 14.6959 
0.62069 80.0 84.20 1.0000 0.Q000000E+00 0.Q0000000E+00 0.O0Q00000E +00 14.6959 
0.68965 ie) 84.20 1.0000 0.OQ000000E+00 0.O0000000E+00 0. OQ000000E +00 14.6959 
0.75862 1G..2 84.20 1.0000 0.QO000000E+00 0.Q000000E+00 0. 0Q000000E +00 14.6959 


160 





"a2709 
.B9655 
.96552 
.03448 
. 10345 
. 17241 
.24137 
. 31034 
.397930 
- 44827 
solt2o 
. 5B620 
.65516 
.724193 
. 79309 
.86206 
.93102 
Sao oaS 


TEMPERATURE OISTRIBUTION IN THE BACK-UP STRUCTURE 
0. TSQOO00E + 02 
0. TSOOOO0E +02 


0. TSOO0000E +02 
0. TSO0000E +02 


TEMPERATURES AT SELECTED THERMDCOUPLE LOCATIONS 


PENETRATION DEPTHS 


MAX DEPTH OF 
MAX DEPTH OF 


DEPTH OF 
DEPTH OF 


wd 
wn 
COCOCCCCDDCOCOOOOaLND 


200.00 (DEG-F) ISOTHERM= 0. 1855BE+00 
400.00 (DEG-F) ISOTHERM= 0.00000E+00 


(IN) 


B4.20 1.0000 0.O0000000E +00 
B4.20 1.0000 0.0000000E+00 
B4.20 1.0000 0.O0000000E+00 
B4.20 1.0000 0.O0000000E +00 
B4.20 1.0000 0.O0000000E +00 
B4.20 1.0000 0.O0000000E +00 
84.20 1.0000 0.Q000000E +00 
B4.20 1.0000 0.Q000000E +00 
84.20 1.0000 0.0000000E +00 
84.20 1.0000 0.0000000E +00 
B4.20 1.0000 0.0000000E +00 
84.20 1.0000 0.0000000E +00 
B4.20 1.0000 0.Q000000E+00 
B4.20 1.0000 0.0000000E+00 
84.20 1.0000 0.0000000E +00 
84.20 1.0000 0. Q000000E +00 
B4.20 1.0000 0.O0000000E +00 
84.20 1.0000 0.O0000000E +00 


(DEG-F) 
O.7500000E +02 
0. 7SO00000E +02 


DEPTH 
0.62500000E -01 
0. 12500000E +00 
0. 25000000E +00 
0. SOOOOOO0E +00 
0. 10000000E +0 1 


200.00 (DEG-F) ISDTHERM= 0. 1855BE+00 
400.00 (DEG-F) ISDTHERM= 0.65940E-01 


0. TSOOO00E +02 


DEPTH - (IN), 


. COOOOOOE +00 
. COOOOOOE +00 
. COOOOOOE +00 
. COOOOOOE +00 
. COOOOODE +00 
. OOOOOOOE +00 
. COOOOO0E + 00 
. OOOOODODE +00 
- COOOOOOCE +00 
. COOOO00E +00 
. COOOOOD0E +00 
. COOOOODE +00 
- OOOOOOOE +00 
- COOOOO0E +00 
. COOOOODE +00 
. OCOOOOODE +00 
- OCOOOOODE +00 
- COOOOODE +00 


oooo0oocoooo0°oeoeo0o0o0o0°00do 
oooooooco0o°ce°ceo0co0co0°oeoo°odo 


0. TSQOO00E +02 


TEMPERATURE 


TEMPERATURE 

0.32676440E +03 
0.25186542E+03 
0.158 18082E+03 
0.B9466934E+02 
0.75051147E+02 


. OCOOOOOOE +00 
. COOOOOOE +00 
. COOOOOOE +00 
. COOOOOOE +00 
. OCOOOOOOE +00 
. OCOOOOOOE +00 
. COOOOO0E +00 
. OCOOOO00E +00 
. OCOOOOOOE + 00 
- OCOOOOOODE +00 
. COOOOODE +00 
. QCOOOCOOODE +00 
. COOOOOOE +00 
- OOOOO00E +00 
. COOOOO0DE +00 
. COOOO0OE +00 
- OOOOCO00E +00 
. COOOOOOE +00 


0. TSO0000E +02 


- (DEG-F) 


DEPTH DFO. 10000 DENSITY RATID= 0.OQ000E +00 
DEPTH DFO.90000 DENSITY RATID= 0.59107E-01 


EQUIVALENT TEST SPECIMEN LOSS= 0.02253 (IN) EQUIVALENT TEST SPECIMEN LENGTH= 1.97746 (IN) 


#eeee¢ TIME2 2.60000E +02 TIME STEP= 1.Q00000E+00 
VELOCITY=, 1.00000E+01 


ANGLE DF ATTACK= 0.00000E+00 


FRAD= 1.Q0000E+00 
Q RADIATIVE= 0.00000E+00 


FCDNV= 1.00000E +00 
Q CONVECTIVE= 0.00000E+00 


GAS ABLATION RATE= 1.16735E€-02 CHAR ABLATION RATE= 0.00000E +00 TOTAL ABLATION RATE= 1.16735E-02 
RECESSION DEPTH= 0.00000E+00 RECESSION RATE= 0.00000E +00 SUBLIMATION RATE= 0.Q0000E+00 
QIN=-9.82032E-02 QRERAD= 9.82032E-02 TOSUBL= 0.O0000E +00 ALPHA= 1.07123E+00 
OHDT WALL= 0.00000E+00 QSID2= 0.Q00000E+00 TQOXID= 0.00000E+00 BCDOF= 0.O00000E+00 
QWB= 0.00000E +00 TQIN= 1.88079E+03 TQRERAD= 1.29205E+02 G= 0.00000E +00 
QBLOCK= 0.00000E+00 TOHW= 0.O00000E +00 HTX -HW=-5.339547E+01 PL= 1.46960E+01 
QSUBL= 0.O0000E +00 TQRADX= 2.01000E +03 HTX= 1.29062E+02 PLPT= 1.00000E+00 
QOXID= 0.00000E+00 TQBLOCK= 0.00000E+00 RHOST= 3.76400E+01 WX= 1.O00000E +00 


Isl 


TEST SPECIMEN PROFILES AT THE END DOF THE TIME STEP, 


X TEMPERATURE DENSITY THETA M DOT M COKE MT COKE PRESSURE 
(IN) (DEG-F) (LB/FT3) (LB/FT2-HR) (LB/FT2-HR) (LB/FT2-HR) (PST) 
0.00000 283.6 41.64 0.3372 0.1167347E-01 0O.O0Q000000E+00 0.0000000E +00 14.6959 
0.06897 296.6 83.79 0.9937 0.5698841E-02 0.Q0000000E+00 0.O0000000E +00 14.6959 
0.13793 237-5 84.20 0.9999 0.5498368E-03 0.O0000000E+00 0.0000000E +00 14.6959 
0.20690 186.8 84.20 1.0000 0.O000000E+00 0.Q000000E+00 0.0000000E +00 14.6959 
0.27586 150.0 84.20 1.0000 0.Q000000E+00 0.O0000000E+00 0.0000000E +00 14.6959 
0.34483 124.1 84.20 1.0000 0.QO00000E+00 0.Q000000E+00 0.Q0000000E +00 14.6959 
0.41379 106.2 84.20 1.0000 0.0000000E+00 0.0000000E+00 0. O000000E+00 14.6959 
0.48276 94.1 84.20 1.0000 0.O0000000E+00 0.Q000000E+00 0.0000000E +00 14.6959 
0.55172 86.2 84.20 1.0000 0.Q000000E+00 0.O0000000E+00 0 .O000000E +00 14.6959 
0.62069 81.2 84.20 1.0000 0.Q0000000E+00 0.0000000E+00 0.0000000E+00 14.6959 
0.68965 78.3 84.20 1.0000 0.OQ000000E+00 0.Q000000E+00 0. 0000000E +00 14.6959 
0.75862 76.7 84.20 1.0000 0.Q000000E+00 0.0000000E+00 0. 0000000E +00 14.6959 
0.82759 75.8 84.20 1.0000 0.Q0000000E+00 0.0000000E+00 0.0000000E +00 14.6959 
0.89655 75.4 84.20 1.0000 0.O0000000E+00 0.O0000000E+00 0.0000000E +00 14.6959 
0.96552 1351 84 20 1.0000 0.Q0000000E+00 0.O0000000E+00 0.0000000E +00 14.6959 
1.03448 Ta 84.20 1.0000 0.Q0000000E+00 0.0000000E+00 0.0000000E+00 14.6959 
1.10345 75.0 84.20 1.0000 0.Q000000E+00 0.0000000E+00 0.Q000000E+00 14.6959 
1.17241 73:20 84.20 1.0000 0.Q000000E+00 0.0000000E+00 0.0000000E +00 14.6959 
4.24137 7520 84 20 1.0000 0.O0000000E+00 0.O0000000E+00 0. 0000000E+00 14.6959 
1.31034 73.0 84.20 1.0000 0.O0000000E+00 0.0000000E+00 0.0000000E +00 14.6959 
1.37330 75.0 84.20 1.0000 0.O0000000E+00 0.QO000000E+00 0.0000000E +00 14.6959 
1.44827 75.0 84.20 1.0000 0.Q000000E+00 0.0000000E+00 0.0000000E+00 14.6959 
1.51723 73.0 84.20 1.0000 0.0000000E+00 0.O0000000E+00 0.0000000E +00 14.6959 
1.58620 75.0 84.20 1.0000 0.DOOOO00E+00 0.0000000E+00 0.0000000E +00 14.6959 
1.65516 75.0 84.20 1.0000 0.O0000000E+00 0.O0000000E+00 0.0000000E +00 14.6959 
1.72413 73,0 84.20 1.0000 0.O0000000E+00 O0.0000000E+00 0.0000000E+00 14.6959 
1.79309 75.0 84.20 1.0000 0.OQ000000E+00 0.0000000E+00 0.O000000E +00 14.6959 
1.86206 75.0 84.20 1.0000 0.OQ000000E+00 0.0000000E+00 0. 0000000E +00 14.6959 
1.93102 75.0 84.20 1.0000 0.O0000000E+*00 0.O0000000E+00 0.0000000E+00 14.6959 
1.99999 75.0 84.20 1.0000 0.Q000000E+00 0O.O000000E+00 0.0000000E +00 14.6959 


TEMPERATURE DISTRIBUTION IN THE BACK-UP STRUCTURE 


(DEG-F) 


TIME= 2.61000E +02 


0. 7500000E+02 0. TSQOO000E +02 0. TSOQ0000E +02 0. TSOO0000E +02 


0. TSQ0000E +02 


0. 7500000E +02 
0. TS00000E +02 


0. 7T500000E +02 
0. TSQ0000E +02 
TEMPERATURE - (DEG-F) 


TEMPERATURES AT SELECTED THERMDCOUPLE LOCATIONS DEPTH - (IN), 


DEPTH TEMPERATURE 
0.62500000E -01 0.29842065E +03 
0. 12500000E +00 0.24789476E +03 
0. 25000000E +00 0. 16248685E+03 
0. SOOOOOOOCE +00 0.91861115E& +02 
0. 10000000E +01 0.75092 194E +02 


PENETRATION DEPTHS (IN) 


MAX DEPTH DF 
MAX DEPTH OF 


200.00 (DEG-F) ISDOTHERM= 0. 18888E+00 
400.00 (DEG-F} ISOTHERM= 0.65940E-01 


DEPTH DFO. 10000 DENSITY RATID= 0.00000E+00 
DEPTH DFO.90000 DENSITY RATID= 0.59124E-01 


DEPTH DF 
DEPTH DF 


200.00 (DEG-F) ISOTHERM= 0. 18888E+00 
400.00 (DEG-F) ISOTHERM= 0.O00000E+00 


G2 


EQUIVALENT TEST SPECIMEN LOSS= 


0 
GAS ABL 


x 
(IN) 
.00000 
.06897 
.13793 
. 20690 
.27586 
94483 
.41379 
. 48276 
.55172 
.62069 
68965 
. 75862 
.82759 
.89655 
.96552 
.03448 
. 10345 
.17241 
24137 
.31034 
.37930 
44827 
.§1723 
.58620 
.65516 
.72413 
. 79309 
. 86206 
.93102 


0.02254 (IN) 


EQUIVALENT TEST SPECIMEN LENGTH= 


1.97746 (IN) 


#*#4%% TIME= 2.80000E+02 TIME STEP= 1.00000E+00 
FCONV= 1.00000E+00 FRAD= 1.00000E+00 VELOCITY= 1.00000E+01- 
CONVECTIVE= 0.00000E+00 O RAOIATIVE= 0.00000E+00 ANGLE OF ATTACK= 0.00000E+00 
ATION RATE= 6.10840£-03 CHAR ABLATION RATE= 0.00000E+00 TOTAL ABLATION RATE= 6. 10840E-03 
RECESSION OEPTH= 0.00000E+00 RECESSION RATE= 0.00000E +00 SUBLIMATION RATE= 0.Q00000E+00 
QIN=-8.42038E -02 ORERAD= 8.42039E-02 TOQSUBL= 0.00000E+00 ALPHA= 1.07123&+00 
QHOT WALL= 0.O0000E +00 QSIO02= 0.O00000E+00 TOQOOXID= 0.0O0000E+00 8COF= 0.O00000E+00 
QWB= 0.C0O0000E+00 TOIN= 1.87898E+03 TORERAO= 1.31021&+02 G= 0.00000E+00 
Q8LOCK= 0.00000E+00 TQHW= 0.O0000E+00 HTX -HW=-4.83852E+01 PL= 1.46960E+01 
OSUSL= 0.O00000E+00 TQRAOX= 2.01000E+03 HTX= 1.29062E+02 PLPT= 1.00000E+00 
QOXID= 0.00000E+00 TQBLOCK= 0.00000E +00 RHOST= 3.76378E+01 WX= 1.O00000E +00 
TEST SPECIMEN PROFILES AT THE ENO OF THE TIME STEP, TIME= 2.81000E+02 
TEMPERATURE DENSITY THETA M DOT M COKE MT COKE PRESSURE 
(OEG-F) (L8/FT3) (L8/FT2-HR) (L8/FT2-HR) (L8/FT2-HR) (PSI) 

263.6 41.64 0.3372 0.6108396E-02 0.O0000000E+00 0.0000000E +00 14.6959 

275.2 83.79 0.9936 0.3318309E-02 0.0000000E+00 0.0000000E +00 14.6959 

233.8 84.20 0.9999 0.5033505E-03 0.O0000000E+00 0.0000000E +00 14.6959 

189.0 84.20 1.0000 0.0000000E+00 0.0000000E+00 0.0000000E +00 14.6959 

153.7 84.20 1.0000 0.0000000E+00 0.0000000E+00 0.0000000E+00 14.6959 

127.8 84.20 1.0000 0.O0000000E+00 0.O0000000E+00 0.0000000E +00 14.6959 

109.4 84.20 1.0000 0.0000000E+00 0.0000000E+00 0.0000000E +00 14.6959 

96.7 84.20 1.0000 0.Q000000E+00 0.0000000E+00 0.0000000E +00 14.6959 

88.1 84.20 1.0000 0.0000000E+00 0.0000000E+00 0.0000000E +00 14.6959 

82.6 84.20 1.0000 0.O0000000E+00 0.0000000E+00 0.0000000E +00 14.6959 

79.2 84.20 1.0000 O0.0000000E+00 0.0000000E+00 0.0000000E +00 14.6959 

12.2 84.20 1.0000 0.0000000E+00 0.0000000E+00 0.0000000E +00 14.6959 

76.1 84.20 1.0000 O.0000000E+00 0.0000000E+00 0.0000000E+00 14.6959 

75.5 84.20 1.0000 0.Q0000000E+00 0.O0000000E+00 0.0000000E +00 14.6959 

75.2 84.20 1.0000 0.0000000E+00 0.0000000E+00 0.0000000E +00 14.6959 

75.1 84.20 1.0000 0.0000000E+00 0.0000000E+00 0. 0000000E +00 14.6959 

75.0 84.20 1.0000 0.0000000E+00 0.0000000E+00 0.0000000E+00 14.6959 

75.0 84.20 1.0000 0.0000000E+00 0.0000000E+00 0.0000000E +00 14.6959 

75.0 84.20 1.0000 0.O0000000E+00 0.0000000E+00 0.0000000E+00 14.6959 

75.0 84.20 1.0000 0.O0000000E+00 0.0000000E+00 0.0000000E +00 14.6959 

75.0 84.20 1.0000 0.0000000E+00 0.Q0000000E+00 0.0000000E +00 14.6959 

75.0 84.20 1.0000 0.0000000E+00 0.0000000E+00 0. 0000000E+00 14.6959 

75.0 84.20 1.0000 0.0000000E+00 0.0000000E+00 0.0000000E+00 14.6959 

75.0 84.20 1.0000 0.0000000E+00 0.0000000E+00 0. 0000000E+00 14.6959 

75.0 84.20 1.0000 O0.0000000E+00 0.0000000E+00 0.0000000E+00 14.6959 

75.0 84.20 1.0000 0.0000000E+00 O0.0000000E+00 0. 0000000E +00 14.6959 

75.0 84.20 1.0000 0.0000000E+00 O.O0000000E+00 0.0000000E +00 14.6959 

75.0 84.20 1.0000 O0.0000000E+00 0.0000000E+00 0.0000000E+00 14.6959 

75.0 84.20 1.0000 0.0000000E+00 0O.0000000E+00 0.0000000E +00 14.6959 

75.0 84.20 1.0000 0.0000000E+00 O0.0000000E+00 0.0000000E+00 14.6959 


-99999 


TEMPERATURE OISTRISUTION IN THE 8ACK-UP STRUCTURE 


0. 7SQ00000E +02 
0. 7SOO000E +02 


TEMPERATURES AT SELECTED THERMOCOUPLE LOCATIONS 


0. 7TSOQO00E +02 
0. 7500000E +02 


0. TSOOOO0E +02 


0. 7S500000E +02 


16 


(OEG-F) 


0. 7TSO00000E +02 


DEPTH - (IN), 


3 


0. TSOO000E +02 


TEMPERATURE 


0. 7TS00000E +02 


- (DEG-F) 


PENETRATION OEPTHS 


MAX DEPTH OF 
MAX QEPTH OF 


DEPTH OF 


DEPTH OF 


EQUIVALENT TEST SPECIMEN LOSS= 


200.00 (GEG-F} ISOTHERM= 0. 18996E+00 
400.00 (OEG-F) ISOTHERM= 0.00000E+00 


eeeee% TIME= 3.OO000E+02 


FCONV= 


(IN) 


DEPTH 


0 .62500000E - 01 
0. 12500000E +00 
0. 25000000E +00 
0. SOOCOOOOE +00 
0. 10000000E +01 


TIME STEP= 


1. OOOOCE +00 


Q CONVECTIVE= 0. O0000E +00 


GAS ABLATION RATE= 3.61667E -03 
RECESSION OEPTH= 


DIN=-7 .39953E -02 

QHOT WALL= 0.O0000E +00 
OWB= O.OOOO0O0E +00 
QBLOCK= 0.O00000E+00 


QSUBL = 


0. OOOOCE +00 


QOXIG= 0. OOOOOE +00 


TEST SPECIMEN PROFILES AT THE ENO OF THE TIME STEP, 


X 
(IN) 
. 00000 
.06897 
13793 
. 20690 
. 27586 
. 34483 
. 41379 
. 48276 
eon Lee 
. 62069 
.68965 
. 75862 
. 82759 
.89655 
.96552 
.03448 
. 10345 
17241 
. 24137 
. 31034 
. 37930 


weeree = 9 OOCCCOCOCCCoCoCoCooS 


TEMPERATURE 


(DEG-F) 
247. 
258. 
228: 
189. 
156. 
131. 


[p *] 
ene Se Ol OS ee ee 
oOoo0o0O Oa 843W7yt &@ Wo OON bk ae DMounae 


0. OOOOOE +00 


OEN 
(LB 


41. 
83. 
84. 


QRERAG= 
QSI02= 
TOQIN= 
TOQHW= 
TORAOX= 
TOBLOCK= 


SITY 
/FT3) 


ed pT hin he chine cle ce Ue St waeten toe ee 


0.02254 (IN) 


.39954E -02 
. OCOOOCE +00 
.87740E+03 


FRAOG= 


200.00 (GEG-F) ISOTHERM= 0. 18996E+00 
400.00 (OEG-F)} ISOTHERM= 0.65940E-01 


EQUIVALENT TEST SPECIMEN LENGTH= 


1. OCOOOOE +00 


. O1000E +03 


4 
0 
1 
0. OOOOOE +00 
2 
0 


. COOOOE +00 


THETA 


3372 
. 9936 
.9999 


SCOCCOCCOOC OO COCOGeC > 


M OOT 
(LB/FT2-HR) 


.3616674E -02 
.2133920E -02 
.433 1518E -03 
. COOOOODE +00 
. OOOOOODE +00 
. OCOOOOOODE +00 
. COOOOODE +00 


OOOOOOOE +00 
OOOOOOOE +00 


. COOCOODE +00 
. COOOOODE +00 
. OCOOOCOOOCE +00 


OOOOOOODE +00 
OOOOOOOCE +00 


. OCOOOOOOE +00 


OOOOOOOE +00 
OOOOOOOCE +00 
OOOOOOOE +00 
OOOOCOOODE +00 


. OOOOOODE +00 


OOOOOOOE +00 
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0. OOOOOE +00 


TQRERAGO= 


HTX= 
RHOST= 


oooooooooocooocooo0o0o coo 


TEMPERATURE 


0O.27639990E +03 
0.24178519E+03 
0. 16582486E+03 
0.942479 10E +02 
0.75 149750E +02 


1. OOOOOE +00 
D RAOIATIVE= 0.OO0000E +00 
CHAR ABLATION RATE® 

RECESSION RATE= 0.00000E +00 


TIME= 3.01000E +02 


M COKE 
(LB/FT2-HR) 


. COOOOOOE +00 
. COOOOOOE +00 
. OOOOOOOE +00 
. COOOOOOE +00 
. OOOO000E +00 
. OOOOOODE +00 
. COOOOOOE +00 
. OOOOOO0E +00 
. OOOOOO0E +00 
. COOODOODE +00 
. OOOOOODE +00 
. OOOO000E +00 
. OOODD00E +00 
. OOOOOOOE +00 
. OOOOCOOE +00 


OOOOOOOE +00 


. COOOOODOE +00 
. OCOOOOOODE +00 


OOOOOOOE +00 


. OCOOOOOOCE +00 


OOOOOOOE + 00 


OEPTH OGFO. 10000 GENSITY RATIO= 
DEPTH OFO.90000 DENSITY RATIO= 


TQOSUBL= 0.OOQ000E +00 
TQDXID= 0.OQO0000E +00 
1.32598E +02 
HTX-HW=-4.44792E+01 
1.29062E +02 
3.76368E+01 


299990099090000009000 


VELOCITY= 


ALPHA= 
BCOF = 
G= 
PL= 
PLPT= 
WX= 


MT COKE 
(LB/FT2-HR) 


. OCOOOOOOCE +00 
. COOOOOOE +00 
. COOOOOOE +00 


OOOOOOOE +00 


. COOOOODE +00 
. OCOOOOOODE +00 
. COOOOOCE +00 
. COOOOODE +00 
. COOOOO0E +00 


OOOOOO0OE + 00 
OOOOOOOE +00 


. OCOOOOOODE +00 


OOOOOOOE +00 
OOOOOOOE +00 
OOOOOOOE +00 
OOOOOOOE +00 
OOOOOOOE +00 
OOOOOOOE +00 
OOOOOOOE + 00 
OOOOOOOE +00 
OOOCOOOE +00 


0. OOOOOE +00 
0.59132E-01 


1.97746 (IN) 


1. OOOOOE +01 


We 
0. 
QO. 

se 

ie 

1 


ANGLE OF ATTACK= 0.OO0O00E +00 
TOTAL ABLATION RATE= 3.61667E-03 
SUBLIMATION RATE= 0.Q00000E +00 


07 123E+00 
OOOOOE +00 
OOOOOE +00 
46960E +01 
OOOOOE +00 
OOOOOCE +00 


PRESSURE 
(PSI) 
14.6959 
14 6959 
14.6959 
14.6959 
14.6959 
14.6959 
14.6959 
14.6959 
14.6959 
14.6959 
14.6959 
14.6959 
14.6959 
14.6959 
14.6959 
14.6959 
14.6959 
14.6959 
14.6959 
14.6959 
14.6959 


1.44827 75.0 B4.20 1.0000 0.O0000000E+00 0.0000000E+00 0.0000000E +00 14.6959 
1.51723 75.0 84.20 1.0000 0.Q0000000E+00 0.O0000000E+00 0.O000000E +00 14.6959 
1.58620 78.0 B4.20 1.0000 0.0000000E+00 0.O0000000E+00 0.0000000E +00 14.6959 
1.65516 Ui ee © 84.20 1.0000 0.O0000000E+00 0.O0000000E+00 0.O0000000E +00 14.6959 
1.72413 78.0 84.20 1.0000 0.O000000E+00 0.O0000000E+00 0.0000000E +00 14.6959 
1.79309 75.0 B4.20 1.0000 0.Q000000E+00 0.0000000E+00 0.0000000E +00 14,6959 
1.86206 75.0 84.20 1.0000 0.O000000E+00 0.O0000000E+00 0.0000000E +00 14.6959 
1.93102 75.0 B4.20 1.0000 0.Q0000000E+00 0.0000000E+00 0.O0000000E +00 14.6959 
1.99999 785.0 B4.20 1.0000 0.O0000000E+00 0.0000000E+00 0. O0000000E +00 14.6959 


TEMPERATURE OISTRIBUTION IN THE BACK-UP STRUCTURE (OEG-F) 
0. TSOO000E +02 0. 7S500000E +02 0. 7500000E +02 0. TSQ0000E +02 
0. TS0Q0000E +02 0. TSOOOO0E +02 0. TSOOOOOE +02 


0. TSOQO000E +02 0. TSOOQOO0E +02 


TEMPERATURES AT SELECTEO THERMOCOUPLE LOCATIONS DEPTH - (IN), TEMPERATURE - (OEG-F) 


DEPTH 
0.62500000E -01 
0. 12500000E +00 
0. 25000000E +00 
0. SOOOOOOOCE +00 
0. 1OO00000E +01 


TEMPERATURE 

0.25912109E+03 
0.23475372E+03 
0. 16B815147E+03 
0.9659B602E +02 
0.752262 12E+02 


PENETRATION DEPTHS (IN) 


200.00 (OEG-F) ISOTHERM= 0. 18996E+00 
400.00 (DEG-F) ISOTHERM= 0.65940E-01 


MAX OEPTH OF 
MAX DEPTH OF 


OEPTH OFO. 10000 DENSITY RATIO= 0.O0000E+00 
DEPTH OFO.90000 OENSITY RATIO= 0.59136E-01 


200.00 (OEG-F) ISOTHERM= 0.18875E+00 
400.00 (DEG-F) ISOTHERM= 0.Q0000E+00 


OEPTH OF 
OEPTH OF 


EQUIVALENT TEST SPECIMEN LOSS= 0.02254 (IN) EQUIVALENT TEST SPECIMEN LENGTH= 1.97745 (IN) 


s444% TIME= 3.20000E+02 TIME STEP= 1.00000E+00 


VELOCITY= 1.00000E+01 
ANGLE OF ATTACK= 0.0Q0000E+00 


1. OOO00E +00 
0 . OOOOOE +00 


FRAO= 
Q RAOIATIVE= 


FCONV= 1.00000E+00 
Q CONVECTIVE= 0.OO000E +00 


GAS ABLATION RATE= 2.33507E-03 CHAR ABLATION RATE= 0.Q0000E+00 TOTAL ABLATION RATE= 2.33507E-03 
RECESSION DEPTH= 0.00000E+00 RECESSION RATE= 0.00000E+00 SUBLIMATION RATE 0.O0QQ00E+00 
QIN=-6.62165E -02 QRERAG= 6.62166E-02 TQSUBL= O0.O00000E+00 ALPHA= 1.07123E+00 
OHOT WALL= 0.00000E +00 QS$102= 0.OO0000E +00 TOOXIO= 0.O00000E +00 BCOF= 0.00000E+00 
OWB= O0.O0O000E +00 TQIN= 1.87600E+03 TQRERAG= 1.33996E+02 G= 0.00000E +00 
QBLOCK= 0.O00000E +00 TQHW= 0.O0000E +00 HTX -HW=-4.13154E+01 PL= 1.46960E+01 
QSUBL= 0.00000E+00 TORAOX= 2.01000E +03 HTX= 1.29062E+02 PLPT= 1.0Q0000E +00 
QOXID= 0O.OO0000E +00 TQBLOCK= O.QOQOOOE +00 RHOST= 3.76362E+01 WX= 1.QOO0000E +00 
TEST SPECIMEN PROFILES AT THE ENO OF THE TIME STEP, TIME= 3.21000E+02 
X TEMPERATURE DENSITY THETA M OOT M COKE MT COKE PRESSURE 
(IN) (DEG-F) (LB/FT3) (LB/FT2-HR) (LB8/FT2-HR) (LB/FT2-HR) (PSI) 
0.00000 235.0 41.64 0.39372 0.2335070E-02 0O.O000000E+00 0.O0000000E +00 14.6959 
0.06B97 244.8 83.78 0.9935 0.14647B9E-02 0.Q0000000E+00 0.O0000000E +00 14.6959 
0.13793 222.6 B4.19 0.9999 0.3618414E-03 0.O0000000E+00 0.0000000E +00 14.6959 
0.20690 189.5 84.20 1.0000 0.0000000E+00 O0.0000000E+00 0.O0000000E +00 14.6959 
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0.27586 158.7 84.20 1.0000 0 
0.34483 {a3\.9 84.20 1.0000 0 
0.41379 1152 84.20 1.0000 0 
0.48276 101.6 84.20 1.0000 0 
0.55172 92.0 84.20 1.0000 0 
0.62069 85.4 84.20 1.0000 0O 
0.68965 Sia 84.20 1.0000 0 
0.75862 78.4 84.20 1.0000 0O 
0.82759 76.9 84.20 1.0000 0 
0.89655 76,0 84.20 1.0000 0 
0.96552 Tas 84.20 1.0000 0O 
1.03448 Chine: 84.20 1.0000 0. 
1.10345 IIc 84.20 1.0000 0. 
1.17241 75.0 84.20 1.0000 0. 
1.241937 75.0 84.20 1.0000 0. 
1.31034 75.0 84.20 1.0000 0. 
1.37930 75.0 84.20 1.0000 0. 
1.44827 75.0 84.20 1.0000 0. 
1;30t23 75.0 84.20 1.0000 0. 
1.58620 75.0 84.20 1.0000 0. 
1.65516 75.0 84.20 1.0000 0. 
1.724193 75.0 84.20 1.0000 0 
1.19309 75.0 84.20 1.0000 0. 
1.86206 75.0 84.20 1.0000 0O 
1.93102 75.0 84.20 1.0000 0 
1.99999 75.0 84.20 1.0000 90 


TEMPERATURE DISTRISUTION IN THE BACK-UP STRUCTU 
O. TSOOOOOE +02 0. TSOOO00E +02 0. TSOOOO00E +02 
0. TSOOOOOE +02 0. TSOOO00E +02 0. TSOOOOOE +02 


TEMPERATURES AT SELECTED THERMOCOUPLE LOCATIONS 


OEPTH 
0.62500000E -01 
0. 12500000E +00 
0. 25000000E +00 
0. SOOOOCOOOE +00 
0. 1\0000000E +01 


PENETRATION OEFPTHS (IN) 


MAX DEPTH OF 
MAX OEPTH OF 


200.00 (OEG-F) ISOTHERM= 0.189 
400.00 (OEG-F) ISOTHERM= 0.659 


OEPTH OF 
DEPTH DOF 


200.00 (OEG-F) ISOTHERM= 0. 18504E+ 
400.00 (DEG-F) ISOTHERM= 0.OQQ000E+ 


EQUIVALENT TEST SPECIMEN LOSS$= 0.02255 (IN) 


. OOOOOOODE +00 
. OCOOOOODE +00 
. OOOOOOOE +00 
. OOOOOODE +00 
. OOOOOOOE +00 
. COOOOOOE +00 
. COOOOOOE +00 
. COOOOOOE +00 
. COOOOODE +00 
. COOOOODE +00 
. COOOOOOE +00 


. COOOOOOE +00 


OOOOOOOE +00 


- COOOOOOE +00 
. COOOOOOE +00 
- COOOOOOE +00 


RE (DEG-F) 


0. TSQO000E +02 


DEPTH - (IN), 


96E+00 
40E -01 


00 
00 


EOUIVALENT TEST SPECIMEN LENGTH? 


. OCOOOO0OE + 00 
. OOOOO00E +00 
. OCOOCOOOE +00 
. OOOOODOE +00 
. OOOOOOOE +00 
. OOOOOOOE +00 
. OCOOOODOE +00 
. OOOOOOOE +00 


. OCOOOOOOE +00 


. COOOOO0OE +00 


290900000009000000900990000 


OOOOOODE +00 


OOOOOQOOE +00 
OOOOOOOE +00 


OOOOOO00E +00 
OOOOOOODE +00 
COOOOOOE +00 
COOOOOOE +00 
OOOOOOOE +00 
OOOOOOODE +00 


0. TSOOO00E +02 


TEMPERATURE 


TEMPERATURE 

0.24523228E+03 
0.22759016E+02 
0. 16955811E+03 
0.98883286E+02 
0. 75323 700E +02 


ooooo9g9goooo0 C0 C0 C00 e000 0000 


. OOOOOOOE + 00 
. COOOOODDE +00 
. OCOOONOOE +00 
- OCOOOCODE +00 
. OCOOOOOOE +00 
. COOOOOOE +00 


OCOOOOOOE +00 
OOOOOOOE +00 
OOOOOOOE +00 
OOOCOOOOE +00 
OOOOOOOE +00 
OQOOOOOOCE +00 
OOOOOOOE +00 
OOOOOOOE +00 
QOOCOOOE +00 
OOOOOODE +00 
COOOOODE +00 
OOONDOOOE +00 


. COOCOOODE +00 
. COOCOOOE +00 
. OOOOOCODE +00 
. OOOOOOOE +00 
. OOOOCOCODE +00 
. COOOOOOE +00 
. COOOOOOE +00 
. QOOOOODE +00 


6959 


0. TSQOO0000E +02 


- (DEG-F) 


OEPTH DFO. 10000 DENSITY RATIO= 0.0Q0000E +00 
DEPTH OFO.90000 DENSITY RATIO= 0.59139E-01 


1.97745 (IN) 


eeeeee TIME= 3.40000E+02 TIME STEP= 1.Q00000E+00 
FCONV= 1.Q0000E +00 FRAO= 1.QQ000E +00 VELOCITY= 1.Q00000E+01 
Q CONVECTIVE= 0.00000E+00 Q RAOIATIVE= 0.O00000E +00 ANGLE DF ATTACK= 0.Q00000E+00 
GAS ASLATION RATE= 1.60452E-03 CHAR ASLATION RATE= 0.00000E+00 TOTAL ASLATION RATE= 1.60452E-03 
RECESSION DEPTH= 0.00000E+00 RECESSION RATE= 0.O00000E +00 SUBLIMATION RATE= 0.O00000E+00 
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OIN=-6.01043E -02 

OHOT WALL= 0.Q0000E+00 
OWB= O.O0000E +00 
O8LOCK= 0.Q0000E +00 
QSUBL= 0.Q0000E+00 
OOXIO= 0.Q00000E+00 


OR 
0 


TO 


ERAO= 
SIO2= 
TOIN= 
TOHW= 
RAOX= 


TOBLOCK= 


Ono 20M 


.01043E -02 TQSU8L= 0.Q0000E +00 
. OOOCOE +00 TOOXIO= O.Q0000E+00 
.87474E+03 TQRERAO= 1.35257E+02 
. OOOO0E +00 HTX-HW=-3.86996E+01 
.O01000E +03 HTX= 1.29062E+02 
. OOOOOE +00 RHOST= 3.76358E+01 


TEST SPECIMEN PROFILES AT THE ENO OF THE TIME STEP, TIME= 3.41000E+02 


X TEMPERATURE 

(IN) (OEG-F) 
0.00000 224.5 
0.06897 233.5 
0.13793 216.7 
0.20690 188.4 
0.27586 160.1 
0.34483 136.3 
0.41379 UT a? 
0.48276 103.8 
Onoglte 93.9 
0.62069 86.9 
0.68965 82.2 
0.75862 79.2 
0.82759 77.3 
0.89655 76.2 
0.96552 75.6 
1.03448 75.3 
1.10345 TS 
1.17241 75.1 
1.24137 75.0 
1.31034 75.0 
1.37930 75.0 
1.44827 75.0 
1.51723 75.0 
1.58620 75.0 
1.65516 75.0 
1.72413 75.0 
1.79309 75.0 
1.86206 75.0 
1.93102 75.0 
1.99999 750 


TEMPERATURE OISTRISUTION IN THE BACK-UP STRUCTURE 
0. T500000E +02 
0. 7500000E +02 


0. 7T500000E +02 
0. 7500000E +02 


TEMPERATURES AT SELECTEO THERMOCOUPLE LOCATIONS 


PENETRATION OEPTHS 


OENSITY 
(LB/FT3) 


41. 
83. 
84. 
84. 


0. T5Q00000E +02 
0. TSQO0000E +02 


(IN) 


OEPTH 
0 .62500000E -01 
0. 12500000E +00 
0. 25000000E +00 
0 . SOOOCOO00E +00 
0. 10O000000E +01 


. ere oe: ts “ e@ © -« 


T 


HETA 


3371 
9935 
.9999 
. 0000 
0000 
- 0000 
. 0000 
. 0000 
- 0000 
. 0000 
. 0000 
- 0000 
. 0000 
0000 
.0000 
.0000 
.0000 
.0000 


ooooooo0oqoooq0oooooo0oCco0000co000 0000 


M OOT 
(LB/FT2-HR) 


. 1604517E-02 
. 1053031E-02 
.2988817E-03 
. OOOOOODE +00 
. OOOCOOODE +00 
. OOOOOOO0E +00 
. OOOCOOOE +00 
. COOOOOOE +00 
- OCOOOOODE +00 
. OCOOOCOOE +00 
. OOOOOOOE +00 


. COOOOOOE +00 
. OOCOOOOE +00 
. COOCOOO0E +00 


OCOOO0OE +00 
OOOOOOOE +00 


- OOOOOODE +00 
. OOOOCOOE +00 
. OOOOD00E +00 
. COOCOOOE +00 
- COOOOODE +00 
- COOOO0O0E +00 
. OOOCOOOE +00 
- COOOOOOE +00 
. OOOOOOOE +00 
. COOOOOOE +00 


(OEG-F) 


eoo00o0c00ce0o0c0o0o0o0o0co0o0o0co0ccooco0ocoo0co0o°oo 


0. 7500000E +02 


OEPTH - (IN), 


S7 


M COKE 
(L8/FT2-HR) 


- OOOCOOOE +00 
. OOOOOOOE +00 
. COOOOODE +00 
. OOOOOOOE + 00 
. OCOOOOOOE +00 
. OCOOOOOCOE +00 
. COOOOOODE +00 
. QOOOOODE +00 
. COOOOO0E +00 
. COOOO0DE +00 
. OOOOOOOE +00 
. OOOOOOOE +00 
. OCOOOOODE +00 
. OOOOOOOCE +00 
. COOOOCOOE +00 
- COOOO00E +00 
- COOOO00E +00 
. OOOOOOOE +00 
. COOOOOOE +00 
. OOOOOOODE +00 
.OOOOOO00E +00 
- OOOOOO0DE +00 
- OCOOOOO0DE +00 
. COOOOODE +00 
. OCOOOOODE +00 
. OOOOOOOE +00 
- OOOOOCOE +00 
. OOOOOOOE +00 
. OOOOOODE +00 
- COOOOO0E +00 


0. T500000E +02 


TEMPERATURE 


0.23379500E +03 
0.220698 46E +03 
0.17019919E+03 
0. 10106906E +03 
0.75444122€+02 


ooooooecoecoocoocoocooo0ocoeococoqooo0o0oc0c0ce°0°o 


ALPHA 
8COF 


PL 
PLPT 
WX 


MT COKE 
(L8/FT2-HR) 


. OCOOOOCODE +00 
. OOOCOOOE +00 
. COOOOOOE +00 
- OOOCOO0E +00 
. OOOOOOOE +00 
. OOOOOCOOE +00 
-OOOOOOODE +00 
. COOCOO0DE +00 
. COOOOOOE +00 
- OCOOOOOOE +00 
. COOOOO0DE +00 


. COOOOOOE +00 
. OOOOCOOE +00 
. OOOOO00E +00 
. OCOOODDDE +00 
. COOCOOOE +00 
. OOOOO00E +00 
. COOOOO0E +00 
. COOOODOOE +00 
- COOOOOOE +00 
. OOOOCOOE +00 
. COOOOODE +00 
- COOCOOOE +00 
. OCOOOOOCOE +00 


=- 
= 


- 
= 


= 


.07123E+00 
. OOOOOE +00 
. OOOOOE +00 
. 46960E+01 
. COOOOE +00 


. OOOOOE +00 


PRESSURE 
(PSI) 


14 


0. 7500000E +02 


TEMPERATURE - (OEG-F) 


.6959 


200.00 (OEG-F) ISOTHERM= 0.18996E+00 
400.00 (OEG-F) ISOTHERM= 0.65940E-01 


MAX OEPTH OF 
MAX OEPTH OF 


200.00 (OEG-F) ISOTHERM= 0.17857E+00 
400.00 (OEG-F) ISOTHERM= 0.00000E+00 


OEPTH OFO. 10000 OENSITY RAFIO= 0.Q00000E+00 
OEPTH OFO.90000 OENSITY RATIO= 0.59140E-01 


OEPTH OF 
OEPTH OF 


EQUIVALENT TEST SPECIMEN LOSS= 0.02255 (IN) EQUIVALENT TEST SPECIMEN LENGTH= 1.97745 (IN) 


eegeee 


TIME= 3-60000E +02 TIME STFEP= 1.00000E +00 
VELOCITY= 1.QO0000E+01 
ANGLE OF ATTACK= 0.Q0000E +00 


TOTAL ABLATION RATE= 1.06528E-03 


FRAO= 1.O00000E +00 
Q RAOIATIVE= 0.Q00000E+00 
CHAR ABLATION RATE= 0.QO0000E+00 


FCONV= 1.QO0000E +00 
Q CONVECTIVE= 0.00000E+00 
GAS ABLATION RATE= 1.06528E-03 


RECESSION OEPTH= 0.OQ0Q00E+00 RECESSION RATE= 0.Q00000E+00 SUBLIMATION RATE= 0.QOO00E +00 
QIN=-5.51703E-02 QRERAO= §.51703E-02 TQSUBL= 0.O0000E +00 ALPHA= 1.07123E+00 
QHOT WALL= 0.O0O000E +00 QS$102=2 0.00000E +00 TQOXIO02 O.OO000E +00 BCOF= 0.QO000E +00 
QWB= 0 .QOOO0E +00 TOIN= 1.87359E+03 TORERAO= 1.36408E +02 G= 0.O00000E +00 
QBLOCK= 0.Q00000E+00 TQHW= 0.OO0000E+00 HT X-HW=-3.64952E+01 PL= 1.46960E+01 
QSUBL= 0.O00000E +00 FQRAOX= 2.01000E+03 HTX= 1.29062E+02 PLPT= 1.Q0000E+00 
QOXIO= 0.O0000E +00 TOBLOCK= 0.Q0000E+00 RHOST= 3.76356E+01 WX 1.QO0000E +00 
TEST SPECIMEN PROFILES ATF THE ENO OF THE TIME STEP, TIME= 3.61000E+02 
X TEMPERATURE OENSITY THE FA M OOF M COKE MT COKE PRESSURE 
(IN) (OEG-F) (LB/FT3) (LB/FT2-HR) (LB/FT2-HR) (LB/FT2-HR) (PSI) 
0.00000 219.9 41.64 0.3371 0©.1065277E-02 O.Q000000E+00 0.O0000000E +00 14.6959 
0.06897 224.1 83.78 0.9935 0.6942879—E-03 0.Q000000E+00 0.0000000E +00 14.6959 
0.13793 210.9 84.19 0.9999 0.1566626E-03 0.Q0000000E+00 0.0O00000E +00 14.6959 
0.20690 186.7 84.20 1.0000 0.0000000E+00 0.Q000000E+00 0.0000000E +00 14.6959 
0.27586 160.9 84 20 1.0000 0.O0000000E+00 O0.0000000E+00 0.O0000000E +00 14.6959 
0.34483 138.2 84.20 1.0000 0.0Q00000E+00 O0.O0000000E+00 0.Q000000E +00 14.6959 
0.41379 119.9 84.20 1.0000 0.O0000000E+00 O0.O0000000E+00 0.Q000000E +00 14.6959 
0.48276 106.0 84 20 1.0000 0.0000000E+00 0.Q000000E+00 0.0000000E +00 14.6959 
0.55172 95.7 84.20 1.0000 0.0000000E+00 O0.O0000000E+00 0.O0000000E +00 14.6959 
0.62069 88.3 84.20 1.0000 0.Q0000000E+00 0.Q000000E+00 0.O0000000E +00 14.6959 
0.68965 83.3 84.20 1.0000 0.OQ000000E+00 0.O0000000E+00 0.0000000E +00 14.6959 
0.75862 79.9 84 20 1.0000 ©.Q000000E+00 0.Q000000E+00 0.0000000E +00 14.6959 
0.82759 77.8 84.20 1.0000 0.O0000000E+00 0.Q000000E+00 0.0000000E +00 14.6959 
0.89655 76.6 84.20 1.0000 0.Q000000E+00 0.0000000E+00 0. 0000000E +00 14.6959 
0.96552 75.8 84.20 1.0000 0.Q0000000E+00 O0.Q000000E+00 0.0000000E +00 14.6959 
1.03448 75.4 84 20 1.0000 0.O0000000E+00 0O.Q000000E+00 0. 0000000E +00 14.6959 
1. 10345 Rong 84.20 1.0000 0.Q000000E+00 0.Q000000E+00 0.0000000E+00 14.6959 
1.17241 too 84.20 1.0000 0O.O000000E+00 0.O0000000E+00 0.Q000000E+00 14.6959 
1.24137 13:0 84.20 1.0000 0.Q000000E+00 0.0000000E+00 0.Q000000E +00 14.6959 
1.31034 15.0 84.20 1.0000 0.Q000000E+00 0.0000000E+00 0.O0000000E +00 14.6959 
1.37930 75.0 84.20 1.0000 0.O000000E+00 0.0000000E+00 0.Q0000000E +00 14.6959 
1.44827 75.0 84.20 1.0000 0.O000000E+00 0.Q0000000E+00 0.0000000E +00 14.6959 
151723 75.0 84.20 1.0000 0.O0000000E+00 0.0000000E+00 0.O000000E +00 14.6959 
1.58620 1320 84.20 1.0000 0.Q0000000E+00 0.0000000E+00 0. 0000000E +00 14.6959 
1.65516 7370 84.20 1.0000 0.QQ000000E+00 0.0000000E+00 0. 0000000E +00 14.6959 
1.72413 78.0 84.20 1.0000 ©.Q000000E+00 0.Q0000000E+00 0. O0000000E +00 14.6959 
1.79309 75.0 84.20 1.0000 0.Q0000000E+00 0.0000000E+00 0.0000000E +00 14.6959 
1.86206 75.0 84.20 1.0000 0.Q000000E+00 0.0000000E+00 0. O0000000E +00 14.6959 
1.93102 15.0 84.20 1.0000 0.O0000000E+00 0.0000000E+00 0.0000000E +00 14.6959 
1.99999 75.0 84.20 1.0000 0.O0000000E+00 0.0000000E+00 0.0000000E +00 14.6959 
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TEMPERATURE OISTRISUTION IN THE 8ACK-UP STRUCTURE 
0. TSQO000E +02 0. TSOOO00E +02 0. TSOOCOOCE +02 
0. TSOOOOOE +02 0. TSOOO00CE +02 0. TSOOOO0E +02 


(OEG-F) 


0. TSOO000E +02 0. TSOOO000E +02 


TEMPERATURES AT SELECTEOQ THERMOCOUPLE LOCATIONS 


GEPTH - (IN), TEMPERATURE - (OEG-F) 
OEPTH TEMPERATURE 
0. 62500000E - 01 0.22417368E+03 
O. 12500000E +00 O.21425117E+03 
O. 25000000E +00 O. 170234 10E +03 
0. SOOOOOOOE +00 0. 10313628E+03 
0. 10000000E +01 0.75588577E+02 


PENETRATION DEPTHS (IN) 
MAX DEPTH OF 200.00 (DEG-F) ISOTHERM= 0.18996E+00 
MAX DEPTH OF 400.00 (OEG-F) ISOTHERM= 0.65940E-01 


DEPTH OF 200.00 (OEG-F) ISOTHERM= 0. 16908E +00 


DEPTH OF 400.00 (DEG-F) ISOTHERM= 0.O0000E +00 DEPTH DFO.90000 DENSITY RATIO= 0.5 


EQUIVALENT TEST SPECIMEN LOSS= 0.02255 (IN) EQUIVALENT TEST SPECIMEN LENGTH= 


#4e¢¢¢ TIME= 3.80000E+02 TIME STEP= 1.00000E+00 
FCONV= 1.O00000E +00 FRAD= 1.00000E+00 VELOCITY= 
Q CONVECTIVE= 0.O00000E+00 Q RADIATIVE= 0.00000E+00 ANGLE OF ATTACK= 
GAS ASLATION RATE= 7.84642E-04 CHAR A8LATION RATE= 0.00000E+00 TOTAL ABLATION RATE= 
RECESSION OEPTH= 0.O00000E+00 RECESSION RATE= 0.QQ000E +00 SU8LIMATION RATE= 
QIN=-5. 10965E -02 QRERAG= 5.10965E-02 TQSUBL= 0.QO000E +00 ALPHA= 
QHOT WALL= 0.OO000E +00 QSIO2= 0.O00000E +00 TQOXID= O.OO000E +00 8COF= 
QWB= 0.O0000E +00 TOIN= 1.87253E+03 TORERAO= 1.37469E+02 G= 
QBLOCK= 0.O0000E +00 TQHW= 0.O0000E +00 HTX -HW=-3.46063E+01 PL= 
QSUBL= 0.00000E +00 TORADX= 2.01000E +03 HTX= 1.29062E+02 PLPT= 
QOXID= 0.00000E+00 TOBLOCK= 0.O00000E+00 RHOST= 3.76354E+01 WX= 
TEST SPECIMEN PROFILES AT THE ENO OF THE TIME STEP, TIME= 3.81000E+02 
x TEMPERATURE OENSITY THETA M DOT M COKE MT COKE 
(IN) (DEG-F) (LB/FT3) (L8/FT2-HR) (LB/FT2-HR) (L8/FT2-HR) 
0.00000 207.9 41.64 0.3371 0.7846416E-03 O0.O0000000E+00 0. 0000000E +00 
0.06897 215.9 83.78 0.9935 0.5229299E-03 0.Q000000E+00 0.0000000E +00 
0.13793 205.6 84.19 0.9999 0.1263295E-03 O.O0000000E+00 0.0000000E +00 
0.20690 184.7 84.20 1.0000 0.0000000E+00 0.0000000E+00 0.0000000E +00 
0.27586 161.2 84.20 1.0000 0.Q000000E+00 0.O0000000E+00 0.O0000000E +00 
0.34483 139.8 84.20 1.0000 0.O0000000E+00 0.0000000E+00 0.0000000E +00 
0.41379 121.9 84.20 1.0000 0.0000000E+00 0.0000000E+00 0.0000000E +00 
0.48276 108.0 84.20 1.0000 0.0000000E+00 0.O0000000E+00 0.0000000E+00 
0.55172 97.5 84.20 1.0000 0.Q0000000E+00 0.0000000E+00 0.0000000E +00 
0.62069 89.8 84.20 1.0000 0.O0000000E+00 0.O0000000E+00 0.O0000000E +00 
0.68965 84.4 84.20 1.0000 O0.QO000000E+00 0.Q0000000E+00 0. 0000000E +00 
0.75862 80.7 84.20 1.0000 0.0000000E+00 0.0000000E+00 0.0000000E +00 
0.82759 78.4 84.20 1.0000 0.O0000000E+00 0.O0000000E+00 0.0000000E +00 
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0. TSOOO00E +02 


OEPTH OFO. 10000 DENSITY RATIO= 0.00000E+00 


9141E-01 


1.97745 (IN) 


1. OOOOOE +01 
0. OOCOCE +00 
7.84642E-04 
0. OOOOOCE +00 


1.07 123E +00 
0. OOOOOE +00 
0. OOOOOE +00 
1. 46960E +01 
1. OOOOOE +00 
1. QOOOCOE +00 


PRESSURE 
(PST) 
14.6959 
14.6959 
14.6959 
14.6959 
14.6959 
14.6959 
14.6959 
14.6959 
14 6959 
14 6959 
14.6959 
14.6959 
14.6959 


.89655 
.96552 
.03448 
. 10345 
.17241 
24137 
. 31034 
. 37930 
.44827 
.51723 
. 58620 
.655 16 
-72413 
. 19309 
.86206 
.93102 
.99999 


0. 7S500000E +02 
0. TS00000E +02 


PENETRATION OEPTHS 


MAX OEPTH OF 
MAX OEPTH OF 


OEPTH OF 
OEPTH OF 


#*ee¢0 TIME= 4.00000E+02 


Q CONVECTIVE= 


QIN=- 


QHOT WALL= 
QWB= 
OBLOCK= 
QSUBL= 
QOXxIO= 


76.9 84.20 1.0000 0.0000000E+00 0.0000000E+00 0.GO000000E+00 14.6959 
76.0 84.20 1.0000 0._QOOO000E+0Q 0.0000000E+00 0.0000000E+00 14.6959 
75.5 84.20 1.0000 0.O0000000E+00 O0.O0000000E+0O0 0.Q0000000E +00 14.6959 
75.3 84.20 1.0000 O0.0000000E+00 0.0000000E+00 0.0000000E+00 14.6959 
75.1 84.20 1.0000 0.O0000000E+00 0.0000000E+00 0.0000000E+00 14.6959 
75.0 84.20 1.0000 0.O0000000E+00 O.0000000E+00 0.0000000E+00 14.6959 
75.0 84.20 1.0000 O.QO000000E+00 0.Q0000000E+00 0.0000000E+00 14.6959 
75.0 84.20 1.0000 0.00000C00E+00 0.O0000000E+00 0.0000000E+100 14.6959 
75.0 84.20 1.0000 0.Q0000000E+00 O0.0000000E+00 0.0000000E+00 14.6959 
75.0 84.20 1.0000 0.00C0000E+0O0 O.O0000000E+00 0.CO00000E+00 14.6959 
75.0 84.20 1.0000 0.0000000E+00 O0.0000000E+00 0.0000000E +00 14.6959 
75.0 84.20 1.0000 O.Q000000E+00 0.0000000E+00 0.0000000E+00 14.6959 
75.0 84.20 1.0000 0.0000000E+00 0.Q0000000E+00 0.0000000E+00 14.6959 
75.0 84.20 1.0000 0.0000000E+00 0.0000000E+00 0.0000000E+00 14.6959 
75.0 84.20 1.0000 0O.GOOO0000E+CO O.O000000E+00 0.0000000E+00 14.6959 
75.0 84.20 1.0000 0.0000000E+00 0.0000000E+00 0.0000000E+00 14.6959 
75.0 84.20 1.0000 O.QCOQOO00E+CO 0.Q0000000E+00 0.0000000E +00 14.6959 
TEMPERATURE OISTRIBUTION IN THE BACK-UP STRUCTURE (OEG-F) 
0. TSQOO00E +02 O. TSOQO000E +02 0. TSQOOO0E +02 0. TSOO000E +02 0. TSQO0000E +02 
0. TSOOO00E +02 O. TSOO000E +02 
TEMPERATURES AT SELECTEO THERMOCOUPLE LOCATIONS OEPTH - (IN), TEMPERATURE - (OEG-F) 
OEPTH ; TEMPERATURE 
0.62500000E -01 0.21593707E+03 
0. 12500000E +00 0. 20829994E+03 
0. 2S5000000E +00 0. 16980856E+03 
0. SCOOOOOOE +00 0. 10506940E+03 
0. 10000000E +01 0.75758286E+02 
(IN) 
200.00 (OEG-F) ISOTHERM= 0.18996E+00 
400.00 (OEG-F) ISOTHERM= 0.65940E-01 
200.00 (OEG-F) ISOTHERM= 0. 15630E+00 OEPTH OFO. 10000 DENSITY RATIO= 0.Q0000E+00 
400.00 (OEG-F) ISOTHERM= 0.00000E+00 OEPTH OFO.90000 OENSITY RATIO= 0.59142E-01 
EQUIVALENT TEST SPECIMEN LOSS= 0.02255 (IN) EQUIVALENT TEST SPECIMEN LENGTH= 1.97745 (IN) 
TIME STEP= 1.Q00000E+00 
FCONV= 1.00000E+00 FRAO= 1.00000E+00 VELOCITY= 1.00000E+01 
0. COOOOE +00 Q RAOIATIVE= 0.O00000E+00 ANGLE OF ATTACK= 0.Q0000E+00 
GAS ABLATION RATE= 5.95839E-04 CHAR ABLATION RATE= 0.00000E+00 TOTAL ABLATION RATE= 5.95839E-04 
RECESSION OEPTH= 0.Q0000E+00 RECESSION RATE? 0.Q00000E+00 SUBLIMATION RATE= 0.00000E+00 
4.76683E -02 ORERAO= 4.76683E -02 TQSUBL= 0.00000E+00 ALPHA= 1.07123E+00 
0 . COOOOE +00 QSI02= 0O.O0P000E+00 TQOXIO= 0.00000E +00 BCOF= 0.O00C0E +00 
0. COOOOE +00 TOIN= 1.87154E+03 TQRERAO= 1.38456E+02 G= 0.00000E+00 
0. OOOOO0E +00 TQHW= 0.O00000E +00 HTX -HW=-3.29645E+01 PL= 1.46960E+01 
0 . QOOOOE +00 TORAOX= 2.01000E+03 HTX= 1.29062E+02 PLPT= 1.00000E+00 
O .OOOOOE +00 TQBLOCK= 0.00000E+00 RHOST= 3.76353E+01 WxX= 1.O0000E +00 
170 


TEST SPECIMEN PROFILES AT THE ENO OF THE TIME STEP, 


X TEMPERATURE OENSITY THETA M OOT M COKE MT COKE PRESSURE 
(IN) (OEG-F) (LB/FT3) (LB/FT2-HR) (LB/FT2-HR) (LB/FT2-HR) (PSI) 
0.00000 201.2 41.64 0.39371 0.5958388E-03 0.O0000000E+00 0.0000000E +00 14.6959 
0.06897 208 .8 83.78 0.9935 0.4039572E-03 0.O0000000E+00 0.0000000E +00 14,6959 
0.13799 200.5 84.19 0.9999 0.1028682E-03 0.0000000E+00 0.0000000E +00 14.6959 
0.20690 182-5 84.20 1.0000 0.Q0000000E+00 0.0000000E+00 0.O0000000E +00 14.6959 
0.27586 161.2 84.20 1.0000 0.Q000000E+00 0.O0000000E+00 0.0000000E +00 14.6959 
0.34483 140.9 84.20 1.0000 0.OQ000000E+00 0.0000000E+00 0.0000000E +00 14.6959 
0.41379 123.6 84.20 1.0000 0.O000000E+00 0.0000000E+00 0.0000000E +00 14.6959 
0.48276 109.8 84.20 1.0000 0.O000000E+00 0.0000000E+00 0.O0000000E +00 14.6959 
0.55172 2351 84.20 1.0000 0.O0000000E+00 0.0000000E+00 0.O0000000E +00 14.6959 
0.62069 a1.2 84.20 1.0000 0.Q000000E+00 ©0.0000000E+00 0.O0000000E +00 14.6959 
0.68965 85.5 84.20 1.0000 0.O0000000E+00 0.O0000000E+00 0.0000000E +00 14.6959 
0.75862 81.6 84.20 1.0000 0.OQ0000000E+00 0.0000000E+00 0.O0000000E +00 14.6959 
0.82759 79.0 84.20 1.0000 0.Q0000000E+00 0.O0000000E+00 0.O0000000E +00 14.6959 
0.89655 Thad 84.20 1.0000 0.Q000000E+00 0O.O0000000E+00 0. O0000000E +00 14.6959 
0.96552 76.93 84.20 1.0000 0.O0000000E+00 0.Q000000E+00 0.0000000E+00 14.6959 
1.03448 S.7 84.20 1.0000 ©0.Q0000000E+00 0.CO000000E+00 0.0000000E +00 14.6959 
1.10345 75.3 84.20 1.0000 0.Q000000E+00 0.0000000E+00 0. O000000E +00 14.6959 
1.17241 Tose 84.20 1.0000 0.O000000E+00 0.Q0000000E+00 0.O0000000E +00 14.6959 
1.24137 Tales 84.20 1.0000 0.O0000000E+00 0O.O0000000E+00 0.0000000E +00 14.6959 
1.31034 15-0 84.20 1.0000 0.O0000000E+00 ©0.O0000000E+00 0.0000000E +00 14.6959 
1.37930 1970 84.20 1.0000 0.O000000E+00 0O.COO0000E+00 0. 0000000E +00 14.6959 
1.44827 Tao 84.20 1.0000 0.O000000E+00 0.O0000000E+00 0.0000000E +00 14.6959 
1.517293 io.0 84.20 1.0000 0.Q000000E+00 0.0000000E+00 0.O0000000E +00 14.6959 
1.58620 75.0 84.20 1.0000 0.OQ000000E+00 0.Q0000000E+00 0.O0000000E +00 14.6959 
S55 16 75.0 84.20 1.0000 0.O000000E+00 0.0000000E+00 0. 0Q000000E+00 14.6959 
1.72419 15.0 84.20 1.0000 0.O0000000E+00 0.O0000000E+00 0.0000000E +00 14.6959 
1.79309 19.0 84.20 1.0000 0.Q00Q00000E+00 0.O0000000E+00 0.O000000E +00 14.6959 
1.86206 75.0 84.20 1.0000 0.Q000000E+00 0.Q0000000E+00 0O.O000000E +00 14.6959 
1.93102 785.0 84.20 1.0000 0.O000000E+00 0.Q000000E+00 0.0000000E +00 14.6959 
1.99999 78.0 84.20 1.0000 0.O0Q000000E+00 0.OQ000000E+00 0. O000000E +00 14.6959 


TEMPERATURE DISTRIBUTION IN THE BACK-UP STRUCTURE 


(DEG-F) 


TIME= 4.01000E +02 


0. TSOOOOOCE +02 0. TSOO000E +02 O. TSQOOOOE +02 0. TSOOCOO00E +02 


0. TSOOOCOE +02 


0. TSOOOO0E +02 
0. TSOOOO00E +02 


0. TSOOOOOE +02 
0. TSQOOOOCE +02 


TEMPERATURES AT SELECTEO THERMOCOUPLE LOCATIONS DEPTH - (IN), TEMPERATURE - (DEG-F) 
TEMPERATURE 
O.208784593E +03 
0.20283772E+03 

0. 16904076E +03 

0. 106858 20E +03 


0.75953293E +02 


DEPTH 
0.62500000E -01 
0. 12S500000E +00 
0. 2S5000000E +00 
0. SOOOOOO0E +00 
0. 1O0000000E +01 


PENETRATION DEPTHS (IN) 


200.00 (OEG-F) ISOTHERM= 0.18996E+00 
400.00 (DEG-F) ISOTHERM= 0.65940E-01 


MAX DEPTH OF 
MAX DEPTH OF 


OEPTH OFO. 10000 OENSITY RATIO= 0.Q00000E+00 
DEPTH OFO.90000 OENSITY RATIO= 0.59143E-01 


200.00 (DEG-F) ISOTHERM= 0. 13999E+00 
400.00 (OEG-F) ISOTHERM= 0.OO000E +00 


OEPTH OF 
OEPTH OF 


EQUIVALENT TEST SPECIMEN LOSS= 0.02255 (IN) EQUIVALENT TEST SPECIMEN LENGTH= 1.97745 (IN) 


me 


GAS ABL 


OHOT 


x 
(IN) 
. 00000 
.06897 
. 13793 
. 20690 
. 27586 
.394483 
.41379 
48276 
:SS172 
. 62069 
.68965 
. 75862 
.82759 
.89655 
36592 
.03448 
. 10345 
.17241 
24137 
.31034 
. 37930 
. 44827 
-o1722 
.58620 
.65516 
.72413 
. 79309 
.86206 
. 93102 
.99999 


#*eeee TIME= 4.20000E+02 TIME STEP= 1.00000E+00 
FCONV= 1.00000E+00 FRAD= 1.Q0000E+00 VELOCITY= 1.Q00000E+01 
O CONVECTIVE= 0.00000E+00 O RADIATIVE= 0.00000E+00 ANGLE OF ATTACK= 0.00000E+00 
ATION RATE= 1.25768E-04 CHAR ABLATION RATE= 0.00000E+00 TOTAL ABLATION RATE= 1.25768E-04 
RECESSION DEPTH= 0.00000E+00 RECESSION RATE= 0.00000E+00 SUBLIMATION RATE= 0.00000E+00 
OIN=-4.47410€ -02 ORERAD= 4.47410E-02 TOSUBL= 0.00000E+00 ALPHA= 1.07123E+00 
WALL= 0.Q00000E+00 OSID2= 0.00000E+00 TOOXID= 0.00000E+00 BCOF= 0.00000E+00 
OWB= 0.00000E +00 TOIN= 1.87062E+03 TORERAD= 1.39379E+02 G= 0.00000E+00 
OBLOCK= 0.O00000E +00 TOHW= 0.00000E +00 HTX -HW=-3.15219E+01 PL= 1.46960E+01 
OSUBL= O0.QO000E +00 TQRADX= 2.01000E+03 HTX= 1.29062E+02 PLPT= 1.Q00000E+00 
ODXIO0= O.O00000E +00 TOBLOCK= 0.00000E+00 RHOST= 3.76353E+01 WX= 1.00000E+00 
TEST SPECIMEN PROFILES AT THE ENO OF THE TIME STEP, TIME= 4.21000E+02 
TEMPERATURE DENSITY THETA M ODT M COKE MT COKE PRESSURE 
(DEG-F) (LE/FT3) (L8/FT2-HR) (L8/FT2-HR) (L6/FT2-HR) (PSI) 
195.4 41.64 0.3371 0©.1257682E-03 O.O0000000E+00 0.0000000E+00 14.6959 
202.6 83.78 0.9935 0.1257682E-03 0O.0000000E+00 0.0000000E+00 14.6959 
195.9 84.19 0.9999 0.Q0000000E+00 0.0000000E+00 0.0000000E+00 14.6959 
180.2 84.20 1.0000 0O.0000000E+00 0.0000000E+00 0.0000000E+00 14.6959 
160.8 84.20 1.0000 0.0000000E+00 0.0000000E+00 0.0000000E+00 14.6959 
141.8 84.20 1.0000 0.O0000000E+00 0.0000000E+00 0.0000000E+00 14.6959 
125.1 84.20 1.0000 O.0000000E+00 O.0000000E+00 0. 0000000E+00 14.6959 
111.4 84.20 1.0000 O.0000000E+00 0.0000000E+00 0.0000000E +00 14.6959 
100.7 84.20 1.0000 O.Q000000E+00 0.0000000E+00 0.0000000E+00 14.6959 
92.6 84.20 1.0000 0.0000000E+00 0.0000000E+00 0.0000000E+00 14.6959 
86.6 84.20 1.0000 0.0000000E+00 0.0000000E+00 0.0000000E+00 14.6959 
82.4 84.20 1.0000 O.Q000000E+00 O0.Q000000E+00 0.Q0000000E+00 14.6959 
79.6 84.20 1.0000 0.Q0000000E+00 0.0000000E+00 0. 0000000E+00 14.6959 
7s fe 84.20 1.0000 0.O0000000E+00 0.O0000000E+00 0.0000000E +00 14.6959 
76.6 84.20 1.0000 0.Q0000000E+00 0.0000000E+00 0.0000000E+00 14.6959 
75.9 84.20 1.0000 0.0000000E+00 0.Q000000E+00 0.0000000E+00 14.6959 
75.5 84.20 1.0000 0.0000000E+00 O.0000000E+00 0.0000000E+00 14.6959 
75.2 84.20 1.0000 0.0000000E+00 O.O0000000E+00 0.Q0000000E+00 14.6959 
75.1 84.20 1.0000 0.Q000000E+00 O.0000000E+00 0.Q0000000E +00 14.6959 
75.0 84.20 1.0000 0.Q000000E+00 0.0000000E+00 0. Q000000E +00 14.6959 
75.0 84.20 1.0000 0O.Q000000E+00 0.Q0000000E+00 0. 0000000E +00 14.6959 
75.0 84.20 1.0000 0.Q0000000E+00 0.O0000000E+00 0.0000000E +00 14.6959 
75.0 84.20 1.0000 0.Q000000E+00 0.0000000E+00 0.0000000E +00 14.6959 
75.0 84.20 1.0000 0.0000000E+00 0.0000000E+00 0.0000000E +00 14.6959 
75.0 84.20 1.0000 0.0000000E+00 0.0000000E+00 0.0000000E+00 14.6959 
75.0 84.20 1.0000 0.Q0000000E+00 0.0000000E+00 0.0000000E +00 14.6959 
75.0 84.20 1.0000 0.0000000E+00 O.0000000E+00 0.0000000E +00 14.6959 
75.0 84.20 1.0000 0.0000000E+00 0.Q000000E+00 0. 0000000E +00 14.6959 
75.0 84.20 1.0000 O.0000000E+00 0.0000000E+00 0. 0000000E +00 14.6959 
75.0 84.20 1.0000 O.O0000000E+00 O.Q000000E+00 0.0000000E+00 14.6959 


TEMPERATURE OISTRIBUTION IN THE BACK-UP STRUCTURE 
0. 7500000E +02 
0. TSQO000E +02 


0. TSCOO00E +02 
0. TSQ00000E +02 


TEMPERATURES AT SELECTEO THERMOCDUPLE LOCATIONS 


0. 7TS00000E +02 
0. TSOOOO0E +02 


DE 


PTH 


(DEG-F) 


0. TSOO000E +02 


DEPTH - 


2 


(IN), 


0. TSOOOOCE +02 


TEMPERATURE 


TEMPERATURE 


0. TSQ0000E +02 


- (OEG-F) 


PENETRATION OEPTHS 


MAX 
MAX 


GEPTH OF 


OEPT 


OEPTH OF 
GEPTH OF 


H OF 


0 .62500000E -01 


0. 12500000E +00 


0. 25000000E +00 
0. SOOOOOOOE +00 
0. 10000000E +01 


(IN) 


EQUIVALENT TEST SPECIMEN LOSS= 


eeeeee TI 


GAS A8L 


QHOT 


ME> 4.40000E +02 TIME STEP= 1.00000E+00 
FCONV= 1.O00000E +00 FRAO= 1.Q0000E +00 
Q CONVECTIVE= 0.00000E +00 Q RAOQIATIVE= 0.OO000E +00 
ATION RATE= 0.QQ000E+00 CHAR ASLATION RATE= 0.00000E +00 
RECESSION GEPTH= 0.Q0000E +00 RECESSION RATE= 0.Q00000E +00 
QIN=-4.22036E -02 ORERAOD= 4.22036E -02 TQSU8L = 
WALL= 0O.OO000E +00 QS1G2= 0.Q00000E +00 TOQOX 10= 
QWB= O.OOO00E +00 TOIN= 1.86975E+03 TORERAG= 
QBLOCK= 0. O0000E +00 TQHW= O.OO000E +00 HTX -HW= - 
QSU8L= 0.O00000E+00 TORAOX= 2.01000E+03 HT X= 
QOXIG= O.O0000E +00 TOBLOCK= 0.0Q0000E+00 RHOST = 


0.02255 (IN) 


200.00 (OEG-F) ISOTHERM= 0.95604E-01 
400.00 (GEG-F) ISOTHERM= 0.00000E+00 


ooo0o°o 


200.00 (OEG-F) ISOTHERM= 0. 18996E+00 
400.00 (GEG-F) ISOTHERM= 0.65940E-01 


. 202 49783E +03 
. 19783723E+03 
. 16802580E +03 
. 10849809E +03 
.76172256E +02 


OEPTH GFO. 10000 DENSITY RATIO= 0.O00000E +00 
OEPTH OFO.90000 GENSITY RATIO= 0.59143E-01 


EQUIVALENT TEST SPECIMEN LENGTH= 


VELOCITY= 


1.97745 (IN) 


1. OOOOOE +01 


ANGLE OF ATTACK= 0.OQ0000E +00 
TOTAL A8LATION RATE= 0.Q0000E+00 
SUBLIMATION RATE= 


0. OOODOE +00 
0. OOOOOE +00 
1.40248E+02 
3.02393E+01 
1.29062E+02 
3.76353E+01 


TEST SPECIMEN PROFILES AT THE ENO OF THE TIME STEP, TIME= 4.41000E+02 


x 
(IN) 
. 00000 
. 06897 
13793 
. 20690 
.27586 
. 34483 
.41379 
.48276 
.95172 
.62069 
.68965 
. 75862 
. 82759 
.89655 
. 96552 
.03448 
. 10345 
.17241 
.24137 
.31034 
. 37930 
. 44827 


—aeewe ees Oooooeoococococooo0odso 


TEMPERATURE OENSITY 
(OEG-F) (L8/FT3) 
190.2 41.64 
197.0 83.78 
191.6 84.19 
177.8 84.20 
160.2 84.20 
142.4 84.20 
126.3 84.20 
112.9 84.20 
102.2 84.20 
93.9 84.20 
87.7 84.20 
83.3 84.20 
80.2 84.20 
78.2 84.20 
76.9 84.20 
76.1 84.20 
75.6 84.20 
75.3 84.20 
75.1 84.20 
75.1 84.20 
75.0 84.20 
75.0 84.20 


- ate an Oe Se ee 


THETA 


3397 1 


9999 
. 0000 


.9935: 


oooocoooo0ocooco0o0ocoe0o0o°o°eoodo 


M GOT 
(L8/FT2-HR) 


. OOOOOODE +00 
. OOO0O000E +00 
. OOOOO00E +00 
. QOOOO00E +00 
. OCOOOOO0E +00 
. 0O00000E +00 
. OOO0000E +00 
. OO00000E +00 
. COO0000E +00 
. OO00000E +00 
.O000000E +00 
. OOOOOOOE +00 
. OOO0O00E +00 
. COOOOODE +00 
. 0000000E +00 
. OOO0000E +00 
. OOOOO00E +00 
. OOOOOOOE +00 
. ONOOOODE +00 
. OOOO000E +00 
. OOOO0O00E +00 
. OO00000E +00 


| ay ge 


oooocoococooocoecooo°ececoodo 


M COKE 
(L8/FT2-HR) 


. COOOOOOE +00 


- OOOOOOOE +00 
. COOOOODE +00 
. OCOOOOOOE +00 
. COOOOOOE +00 
. OOOOOOOE +00 
. COOOOOOE +00 
. COOOOOODE +00 
- COOOOO0E +00 
. COOOOOOE +00 
. OCOOOOOOE +00 
. COOOOOOE +00 
. OCOOOOOODE +00 
. OOOOOODE +00 
. DOOOOOOE +00 
. OOOOCOOOE +00 
. OOOOOOOE +00 
. COOOOOODE +00 
. OOOOOOOE +00 


(2) (e) (ol e)(ete) ()ielkemeMesteyie (ele ye Momeley (2) oe 


ALPHA= 
8COF= 
G= 

PL= 
PLPT= 
WX= 


MT COKE 
(L8/FT2-HR) 


. COOOOOOE +00 
- COOOOOO0E +00 


QOOOOOOE +00 


. OOOOOOOE +00 
- COOOOOD0E +00 
. OOOOOOOE +00 
- COOOOD0DE +00 
. COOOOOOE +00 
. COOOOOOE +00 
. COOOOODDE +00 
. COOOOOODE +00 
. OOOOOODE +00 
- OOOOOOOE +00 
. DOOOOOOE +00 
. OOOOOOOE +00 


OOOOQOOOE +00 


. OOOOOOOE +00 
. COOOOOOE +00 
. COOOOOOE + 00 


OOOOOOOE +00 


. COOOOO0E +00 
. COOOOODDE +00 


0. O0000E +00 


1.07123E+00 
0. OOOOOE +00 
0. OOOOOE +00 
1.46960E+01 
1. OOOOOE +00 
1. OOOODE +00 


PRESSURE 
(PSI) 


14. 
14. 
14. 
14. 
14 
14. 
14 
14 
14 
14 
14 
14 
14. 
14. 
14. 
14 
14. 
14. 
14 
14. 
14. 
14. 


6959 


6959 - 


6959 
6959 


.6959 


6959 


.6959 
.6959 
.6959 
.6959 
.6959 
.6959 


6959 
6959 
6959 


.6959 


6959 
6959 


.6959 


6959 
6959 
6959 


.51723 
. 58620 
.65516 
.72413 
779309 
.86206 
.93102 
Zoo 900 


TEMPERATURE OISTRIBUTION IN THE BACK-UP STRUCTURE 
0. TSOO000E +02 
OQ. TSOQOO00E +02 


O. TSOOOO0E +02 
0. TSQ00000E +02 


TEMPERATURES AT SELECTEQ THERMQCOUPLE LOCATIONS 


PENETRATION QEPTHS 


MAX OEPTH OF 
MAX OEPTH OF 


OEPTH OF 
OEPTH OF 


~J 
wn 
ooocoo°o°0°o 


(IN) 


84.20 1.0000 
84.20 1.0000 
84.20 1.0000 
84.20 1.0000 
84.20 1.0000 
84.20 1.0000 
84.20 1.0000 
84.20 1.0000 


0. TSQOO000E +02 
0. TSOOO00E +02 


OEPTH 
0.62500000E -01 
0. 12500000E+00 
0. 25000000E +00 
0 . SOOOOOOOE +00 
0. 1O000000E +01 


200.00 (OEG-F) ISOTHERM= 0.00000E +00 
400.00 (OEG-F) ISOTHERM= 0.Q0000E+00 


. COOOOOODE +00 
- COOOOODE +00 
. OOOOO00E +00 

OOOOOO0E +00 
. COOOODODE +00 
. OOOOOODOCE +00 
. OOOOOOODE +00 
. OOOOOOOCE +00 


oeoo0o0o00c°o 


(OEG-F) 


oooo0o0o0o0°0 


0. TSQO000E +02 


200.00 (OEG-F) ISOTHERM= 0. 18996E+00 
400.00 (QEG-F) ISQTHERM= 0.65940E-01 


QEPTH - (IN), 


. OCOOOOOOE +00 
- OCOOOO00E +00 
. OOOOCOOOE +00 
- OOOOOOO0E +00 
. COOOOOOE +00 
- OOOOOODE +00 
- OCOOOOOOE +00 
. DOOOCOOE +00 


oooooc°e0°o 


0. TS500000E +02 


TEMPERATURE 


TEMPERATURE 

. 19691660E +03 
.19324577E+03 
. 16683929E +03 
. 10999397E +03 
. 76415985E +02 


ooo0°0 


. COOOOOOE +00 
. COOOOO0E +00 
. COOOODODE +00 
. COOOOCODE +00 
. COOOCOOCE +00 
- COOOOOOCE +00 
. COOOOOOCE +00 
. OCOOOOOOCE +00 


.6959 
2e90 
.6959 
.6959 
.6959 
.6959 
.6959 
.6959 


0. TS00000€E +02 


- (OEG-F) 


OEPTH OFO. 10000 OENSITY RATIO= 0.O0000E +00 
OEPTH OFO.90000 OENSITY RATIO= 0.59143E-01 


EQUIVALENT TEST SPECIMEN LOSS= 0.02255 (IN) EQUIVALENT TEST SPECIMEN LENGTH= 1.97745 (IN) 


e*e¢#8 TIME= 4.60000E+02 TIME STEP= 1.Q00000E+00 
VELOCITY= 1.OQO0000E+01 
ANGLE OF ATTACK= 0.OQO0000E+00 


TOTAL ABLATION RATE= 0.O0000E +00 


FRAQ= 1.Q0000E +00 
O RAOLATIVE= 0.00000E +00 
CHAR ABLATION RATE= 0.00000E+00 


FCONV= 1.Q0000E +00 
O CONVECTIVE= 0.OQQ000E +00 
GAS ABLATION RATE= 0.QOQ0000E +00 


RECESSION OEPTH= 0.00000E+00 RECESSION RATE= 0.OQQ000E +00 SUBLIMATION RATE= 0.Q00000E +00 
OQIN=-3.99824E -02 ORERAQ= 3.99824E -02 TOSUBL= 0.O0000E +00 ALPHA= 1.07123E+00 
QHOT WALL= 0.Q00000E+00 OSIOQ2= 0.Q0000E +00 TOOXIO= 0.00000E+00 BCOF= 0.O0000E +00 
OWB= 0.O0000E +00 TOIN= 1.86893E+03 TQRERAQ= 1.41069E +02 G= 0.00000E +00 
QBLOCK= 0.O00000E+00 TOHW= 0. OQOO000E +00 HTX -HW=-2.90905E +01 PL= 1.46960E+01 
OSUBL= 0.O00000E +00 TORAQX= 2.01000E+03 HTX= 1.29062E+02 PLPT= 1.Q00000E+00 
QOXIO= 0.O00000E +00 TOBLOCK= 0.O0000E +00 RHOST= 3.76953E+01 WX= 1.Q0000E +00 
TEST SPECIMEN PROFILES AT THE ENO OF THE TIME STEP, TIME= 4.61000E+02 
Xx TEMPERATURE OENSITY THETA M OOT M COKE MT COKE PRESSURE 
(IN) (OEG-F) (LB8/FT3) (LB/FT2-HR) (LB/FT2-HR) (LB/FT2-HR) (PSI) 
0.00000 185.9 41.64 0.3371 0.Q000000E+00 0.Q0000000E+00 0.0000000E +00 14.6959 
0.06897 192.1 83.78 0.9935 0.0000000E+00 O.Q0000000E+00 0. O000000E +00 14.6959 
0.13793 187.6 84.19 0.9999 0O.Q0000000E+00 0.O0000000E+00 0.0000000E +00 14.6959 
0.20690 171309 84.20 1.0000 0.O000000E+00 0O.Q000000E+00 0.0000000E +00 14.6959 
0.27586 159.4 84.20 1.0000 0.Q000000E+00 0.Q000000E+00 0. 0000000E +00 14.6959 


174 


TEMPERATURE OISTRIBUTION IN THE BACK-UP STRUCTU 
0. TS5Q0000E +02 0. 7500000E +02 0. TSQOO00E +02 
0. TSQOO000E +02 0. TS500000E +02 0. TSQO0000E +02 


TEMPERATURES AT SELECTEO THERMOCOUPLE LOCATIONS 


OEPTH 
0.62500000E - 01 
0. 12500000E +00 
0. 25000000E +00 
0. SOOOOOODE +00 
0. 1\0000000E+01 


PENETRATION OEPTHS (IN) 


MAX OEPTH OF 200.00 (OEG-F) ISOTHERM= 0.189 
MAX OEPTH OF 400.00 (OEG-F) ISOTHERM= 0.659 


OEPTH OF 
OEPTH OF 


200.00 (OEG-F) ISOTHERM= 0.O0000E+ 
400.00 (OEG-F) ISOTHERM= 0.00000E+ 


RE (OEG-F) 


0. TSQO000E +02 


OEPTH - (IN), 


96E+00 
40E -01 


00 
00 


0. TSQOQ0000E +02 


TEMPERATURE 


TEMPERATURE 

0.19191743E+03 
0. 18902548E +093 
0. 16559395E+03 
0.11194692E+03 
0.76682816E+02 


0.34483 142.8 84.20 1.0000 0.Q000000E+00 0.O0000000E+00 0.0000000E +00 14.6959 
0.41379 127.4 84.20 1.0000 0.0000000E+00 0.0000000E+00 0.0000000E+00 14.6959 
0.48276 114.2 84.20 1.0000 0.Q0000000E+00 0.O0000000E+00 0.O0000000E +00 14.6959 
O-55172 103.6 84.20 1.0000 0.Q000000E+00 0.O0000000E+00 0.0000000E +00 14.6959 
0.62069 Sa, 2 84.20 1.0000 0.O0000000E+00 0.O0000000E+00 0.0000000E +00 14.6959 
0.68965 88.8 84.20 1.0000 0.O0000000E+00 0.O0000000E+00 0. 0000000E +00 14.6959 
0.75862 84.2 84.20 1.0000 0.OQ000000E+00 0.O0000000E+00 0.O0000000E +00 14.6959 
0.82759 80.9 84.20 1.0000 0.O0000000E+00 0.Q0000000E+00 0.0000000E +00 14.6959 
0.89655 78.6 84.20 1.0000 0.OQ0000000E+00 0.0000000E+00 0.0000000E +00 14.6959 
0.96552 Ure! 84.20 1.0000 0.OQ0000000E+00 0.O0000000E+00 0.O0000000E +00 14.6959 
1.03448 16.0 84.20 1.0000 0.OQ0000000E+00 0.0000000E+00 0.O0000000E +00 14.6959 
1.10345 15.7 84.20 1.0000 0.O0000000E+00 0.0000000E+00 0.0000000E +00 14.6959 
1.17241 75.4 84.20 1.0000 0.Q000000E+00 0.0000000E+00 0.O0000000E +00 14.6959 
1.24137 1S 22 84.20 1.0000 0.0000000E+00 0.0000000E+00 0.0000000E +00 14.6959 
1.391034 13. 1 84.20 1.0000 0.0000000E+00 0.0000000E+00 0.0000000E +00 14.6959 
1.37930 13.0 84.20 1.0000 0.O0000000E+00 0.0000000E+00 0.0000000E+00 14.6959 
1.44827 78.0 84.20 1.0000 0.O0000000E+00 0.0000000E+00 0.0000000E+00 14.6959 
1.51723 75.0 84.20 1.0000 0.O0000000E+00 0.O0000000E+00 0.0000000E +00 14.6959 
1.58620 75.0 84.20 1.0000 0.Q000000E+00 0.O0000000E+00 0.0000000E +00 14.6959 
1.65516 73.0 84.20 1.0000 0O.O000000E+00 0.O0000000E+00 0.0000000E +00 14.6959 
1.72413 15.0 84.20 1.0000 0.0000000E+00 0.0000000E+00 0.0000000E+00 14.6959 
1.79309 75.0 84.20 1.0000 0.O0000000E+00 0.O0000000E+00 0.0000000E +00 14.6959 
1.86206 75.0 84.20 1.0000 0.O0000000E+00 0.0000000E+00 0.0000000E +00 14.6959 
1.93102 75.0 84.20 1.0000 0.Q0000000E+00 0.Q000000E+00 0. 0000000E +00 14.6959 
1.99999 75.0 84.20 1.0000 0.O0000000E+00 0.Q000000E+00 0.0000000E+00 14.6959 


0. TSOO0000E +02 


- (OEG-F) 


OEPTH OFO.10000 OENSITY RATIO= 0. OOO00E +00 
OEPTH OFO.90000 OENSITY RATIO= 0.59143E-01 


EQUIVALENT TEST SPECIMEN LOSS= 0.02255 (IN) EQUIVALENT TEST SPECIMEN LENGTH= 1.97745 (IN) 


eeeeee TIME= 4.80000E+02 TIME STEP= 1.00000E+00 
FCONV= 1.00000E+00 FRAO= 1.OQ0000E +00 VELOCITY= 1.Q0000E+01 
Q CONVECTIVE= 0.00000E +00 Q RAOIATIVE= 0. 00000E +00 ANGLE OF ATTACK= 0.OQ0O000E +00 


TOTAL ABLATION RATE= 0.Q0000E +00 
SUBLIMATION RATE= 0. O0000E+00 


CHAR ABLATION RATE= 0.00000E+00 
RECESSION RATE= 0.Q0000E+00 


GAS ABLATION RATE= 0.00000E+00 
RECESSION OEPTH= 0.00000E+00 


LS 


OIN=-3.80172E-02 

QHOT WALL= 0.Q0000E +00 
QWB= 0. OO000E +00 
QBLOCK= 0.O0000E +00 


QSUBL = 


0. OOOOOE +00 


QOXIO= 0.00000E +00 


TEST SPECIMEN PROFILES AT THE ENO OF THE TIME STEP, 


x 
(IN) 

_00000 
.06897 
.13793 
20690 
27586 
34483 
.41379 
.48276 
55172 
.62069 
68965 
75862 
82759 
.89655 
96552 
03448 
10345 
17241 
24137 
.31034 
.37930 
44827 
.§1723 
.§8620 
.65516 
512413 
_79309 
.86206 
93102 
.99999 


TEMPERATURE OISTRIBUTION IN THE BACK-UP STRUCTURE 
0. TSOO000E +02 
0. TSOOOOOE +02 


0. TS00000E +02 
0. TSOO0000E +02 


TEMPERATURES AT SELECTED THERMOCOUPLE LOCATIONS 


PENETRATION OEPTHS 


d 


187.6 


183. 
ae 
158. 
142. 
128. 
1152 


CODDDDDODOOANNOUNANOOSOENOONYO 


TEMPERATURE 
(OEG-F) 
1840 


(IN) 


QRERAD= 3.80172E-02 
QSIO2= 0.00000E+00 


TQIN= 
TQHW= 


1.86815E+03 
0. OOOO0E +00 


TQRAOX= 2.01000E+03 
TQBLOCK= 0.O0000E +00 


TQSUBL= 0.OO000E +00 
TQOXID= 0.00000E+00 


TQORERAG= 1.41849E+02 
HTX-HW=-2 .80528E+01 
HTX= 1.29062E+02 


RHOST= 3.76353E+01 


OENSITY THETA 
(1B/FT3) 
41.64 0.3371 
83.78 0.9935 
84.19 0.9999 
84.20 1.0000 
84.20 1.0000 
84.20 1.0000 
84.20 1.0000 
84.20 1.0000 
84.20 1.0000 
84.20 1.0000 
84.20 1.0000 
84.20 1.0000 
84.20 1.0000 
84.20 1.0000 
84.20 1.0000 
84.20 1.0000 
84.20 1.0000 
84.20 1.0000 
84.20 1.0000 
84.20 1.0000 
84.20 1.0000 
84.20 1.0000 
84.20 1.0000 
84.20 1.0000 
84.20 1.0000 
84.20 1.0000 
84.20 1.0000 
84.20 1.0000 
84.20 1.0000 
84.20 1.0000 


DEPTH 
0. 62500000E -01 
0. 12500000E +00 
0. 2SQ000000E +00 
0. SOOOOOOOE +00 
0. 1OOO0000E +0 1 


0. TSOO0000E +02 
0. TSQOOO00E +02 


oooooooooooooo9o 900000 000000000 


M OOT 
(LB/FT2-HR) 


. COOOOOOE +00 
. COOOOODE +00 
. COOOOOOE +00 
. OCOOOOOOE +00 
. COOCOOOE +00 
. COOOOOOE +00 
. OOOOOOOE +00 
. COOOOOODE +00 
. COOOODOE +00 
. COOOOODE +00 


OOOOOOOE +00 


. COOOOODOE +00 
. COOOOODE +00 
. COOOOODDE +00 
. OCOOOOODE +00 


OOOOOOOE +00 


. OOOCOOOE +00 


OOODOO0OE +00 


. COOOOO0E +00 
. OCOOOOODE +00 
. COOOOOOE +00 


OOOOOOODE +00 


. COOOOO0E +00 


COOOOOOE +00 


. COOOOODE +00 
. OOOOOOODE +00 


OOOOOOOE +00 
OOOOOOODE +00 


. OCOOOOODOE +00 
. COOOOODDE +00 


(OEG-F) 


0. TSOOO00E +02 


OEPTH - 


pEyAS 


(IN), 


oooooooooo oo oOo 0000 0900900000000 0 


TIME= 4.81000E+02 


M COKE 
(LB/FT2-HR) 


. COOOOODE +00 
. COOOOODE +00 
. OCOOOOODE +00 
. OOOOOOOE +00 
. OCOOOOODE +00 
. COOODOOE +00 
- COOOOODE +00 
. COOOODDE +00 


OOOOOOOE +00 


-OOOOOO0E +00 
. OCOOOOD0OE +00 
. OOOOOOO0E +00 
. OCOOOOODE +00 
. COOOOOODE +00 
. DOOOOOOE +00 
. COOOOOOE +00 
. OCOOOOOOE +00 
. COOOOOOE +00 


OOOOOOOE +00 


. COOOODOOE +00 
. COOCOODOE +00 
. COOOODODE +00 


QOOOOOOE +00 


. COOOOOOE +00 
. COOOOOOE +00 
. OCOOOOOOE +00 
. OCOOODOOE +00 
. COOOOOOE +00 


QOOOOOOE +00 


. OCOOOOODDE +00 


0. TSOOOOOE +02 


TEMPERATURE 


TEMPERATURE 


ooooooo ooo oCOoCOOoOOOOoOoOoOoOoOoOoOoOooooo 


ooo0o°0o 


. 18740341E+03 
. 185 13455E +03 
. 16415320E +03 
.11256126E+03 
.76970459E +02 


ALPHA 
BCOF 


PL 
PLPT 
WX 


MT COKE 
(LB/FT2-HR) 


. COOCOODE +00 
. COOOOOOE +00 
. OOOOCODE +00 
- OCOOOOOODE +00 
- COOOOOOE +00 
- COOOCODE +00 
. OCOOOOOODE +00 
. COOOCOOODE +00 
. COOCOOOE +00 
-. COOOCOOE +00 
. COOOCOOE +00 
. COOOOOOE +00 
. OCOOOOOOE +00 
. COOOOODE +00 
. COOOCOOE +00 
. OOOOOOOE +00 
. OCOOOOOOE + OO 


. COOOOOOE +00 
. COOOOODE +00 
. COOOOOOE +00 


. COOOOOOE +00 
. COOOOOOE +00 
. COOOODOOE +00 


= 
= 


.O7 12aE709 
. COOOOE +00 
. OOOODE +00 
.46960E +01 
. OOOOOE +00 
. OOOOOE +00 


PRESSURE 
(PST) 
14.6959 
.6959 
6959 
.6959 
.6959 
.6959 
.6959 
6959 
6959 
.6959 
6959 
.6959 
.6959 
.6959 
.6959 
.6959 
.6959 
6959 
.6959 
.6959 
.6959 
.6959 
.6959 
.6959 
.6959 
.6959 
.6959 
.6959 
.6959 
.6959 


0. TSQOO000E +02 


- (DEG-F) 


MAX 
MAX 


DEPT 


DEPTH OF 


OEPTH OF 
DEPTH OF 


H OF 


EQUIVALENT TEST SPECIMEN LOSS= 


*#ee TIME= 5.00000E+02 


TEST SPECIMEN PROFILES AT THE ENO OF THE TIME STEP, 


FCONV= 


1. OOOOOE +00 


Q CONVECTIVE= 0.Q00000E +00 
3AS ABLATION RATE= 0.O0000E +00 


RECES 


QOXID= 0.00000E+00 


x 
(IN) 

. 00000 
. 06897 
. 13793 
. 20690 
.27586 
34483 
41379 
.48276 
55172 
.62069 
68965 
. 75862 
82759 
.89655 
.96552 
.03448 
. 10345 
17241 
.24137 
.31034 
.37930 
44827 
51723 
.58620 
65516 
.72413 
_ 79309 
. 86206 
.93102 
.99999 


SION DEPTH= 


0. OOOO0E +00 


QIN=-3.62636E -02 
QHOT WALL= 0.Q0000E +00 
QWB= 0.00000E +00 
QBLOCK= 0.O0000E +00 

QSUBL= 0.O00000E +00 


T 


0.02255 (IN) 


200.00 (DEG-F) ISOTHERM= 0.00000E+00 
400.00 (OEG-F) ISOTHERM= 0.00000E+00 


200.00 (DEG-F) ISOTHERM= 0. 18996E+00 
400.00 (DEG-F) ISOTHERM= 0.65940E-01 


EQUIVALENT TEST SPECIMEN LENGTH= 


TIME STEP= 1.00000E+00 


ORERAD= 
QS102= 
TOIN= 
TOHW= 
TORAOX= 
QBLOCK= 


TEMPERATURE OENSITY 
(OEG-F) (LB/FT3) 
177.4 41.64 
183.5 83.78 
180.5 84.19 
170.9 84.20 
157.6 84.20 
143.0 84.20 
128.9 84.20 
116.4 84.20 
106.0 84.20 
97.5 84.20 
30-3 84.20 
85.9 84.20 
82.2 84.20 
The at! 84.20 
T7129 84.20 
76.8 84.20 
76.0 84.20 
126 84.20 
19.3 84.20 
Tae: 84.20 
ce re 84.20 
78.0 84.20 
15.0 84.20 
15.6 84.20 
75.0 84.20 
75.0 84.20 
75.0 84.20 
13.0 84.20 
19.0 84.20 
15.0 84.20 


o7) # es . . . ew See er en ce . ° . Chiat Vemmed ey 3 . = . 


FRAG= 


3.62636E -02 
0. OOOO0E +00 
1.86741E&+03 
0. OOOOO0E +00 
2.01000E+03 
0. OOOO0E +00 
TIME= 
THETA M OOT 
(LB/FT2-HR) 
.3371 0.0O000000E +00 
.9935 0.0000000E +00 
9999 0.O0000000E +00 
0000 0.0000000E+00 
0000 0.0000000E +00 
0000 0.0000000E +00 
0000 0.0000000E +00 
0000 0.0000000E +00 
0000 0.0000000E +00 
.0000 0.0000000E +00 
.0000 0.0000000E +00 
0000 0.0000000E+00 
0000 0.0000000E +00 
.0000 0.0000000E +00 
.0000 0.0000000E +00 
0000 0. 0000000E +00 
.0000 0. 0000000E +00 
0000 0.0000000E +00 
0000 0.0000000E +00 
0000 0.0000000E +00 
0000 0.0000000E +00 
0000 0.0000000E +00 
0000 0. 0Q000000E +00 
0000 0. 0000000E +00 
.0000 0.0000000E +00 
0000 0.0000000E +00 
0000 0.0000000E +00 
0000 0.0000000E +00 
0000 0.0000000E +00 
0000 0.0000000E+00 


NG 


0. OOOOOE +00 


TQRERAG= 


HTX= 


1. OOOOOE +00 
Q RADIATIVE= 0.00000E+00 
CHAR ABLATION RATE= 

RECESSION RATE= 0.00000E+00 


.01000E+02 


oooooooo0o0o0ooe0e0e00co00o00000°00o00°o0°oSo 


M COKE 
(LB/FT2-HR) 


. OOOOOOOE +00 
. COOOCOOE +00 
. OOOCOODE + 00 
. OOOOOO0E +00 
. OOOOOOOE +00 


OOOOOOOCE +00 
OOOCOOOE +00 


- OOCOOOOE +00 
. COOOOO0E +00 
. COOOOO0E +00 


OOO0000E +00 
OOOOCOODE +00 


. COOOO00E +00 
- OOOOCOOOE +00 
. OCOOO00E +00 
- OOOOOODE +00 
- OOOOO00E +00 
. OOOOCOO00E +00 
. COOOOODE +00 
. OCOOOOOOE +00 
. COOOOOOE +00 
- COOOOO0E +00 
. COOOOODE +00 
. OCOOOOODE +00 
- OOOOOODE +00 
. OCOOOO00CE +00 
- OOOOO0DE +00 
. OOOOO00E + 00 
. OCOOOOO0E +00 
- COOOOODE +00 


TQSUBL= 0.00000E +00 
TQOXIG= 0.00000E +00 
1.42591E&+02 
HTX-HW=-2.71092E+01 
1.29062E+02 
RHOST= 3.76353E+01 


eooe0ceoo0oo0eo0o0o0o0e0ee00ce0ccdeceo0oeo0o0o0o0o9o0o°9o 


VELOCITY= 


ALPHA= 
BCOF = 
G= 
PL= 
PLPT= 
WX= 


MT COKE 
(LB/FT2-HR) 


. OOOCOOOE +00 
. OOOOOODE +00 
. OOOOO0ODE +00 
. COOOOODDE +00 
. OOOOOO00DE +00 
- OOCOOOO0E +00 
. OCOOOOODDE + 00 
. COOOOODE +00 
. OOOOCOOE +00 
. OCOOOO00E +00 
. OOCOOCOOE +00 
. OOOOOODDE +00 
. OOCOOOODDE +00 
. OOOOOODE +00 
. OOOOCODE +00 
. OCOOOCOOCE +00 
. OOOOOOOE +00 
. OOOOOODE +00 
. OCOOOOODDE +00 
. COOOOOODE +00 
. OOOOOO0E +00 
. OOOOO00DE +00 
. COOOCOOE + 00 
. OOOCOOOE +00 
. OOOOO00E +00 
. OOOOOOOE +00 
- OOOOOO0DE + 00 
. OOOOCOOE +00 
. OOOOOOOE +00 
. OOOOOODE +00 


OEPTH OFO. 10000 DENSITY RATIG= 0.00000E+00 
OEPTH OFO.90000 GENSITY RATIO= 0.59143E-01 


1.97745 (IN) 


1. OOOO0E +01 


1.07123E+00 
0. OOOOODE +00 
0. OOOOOE +00 
1. 46960E +01 
1. OOOOOCE +00 
1. OOOOOE +00 


ANGLE OF ATTACK= 0.00000E +00 
TOTAL ABLATION RATE= 0.00000E+00 
SUBLIMATION RATE= 0.Q0000E+00 


PRESSURE 
(PSI) 


14. 
14. 
14. 
14 
14, 
14 
14 
14. 
14 
14. 
14 
14. 
14, 
14 
14 
14 
14 
14 
14. 


14. 
76959 
.6959 


14 
14 
14. 
14. 
14 
14 
14 
14 
14 
14, 


6959 
6959 
6959 


.6959 


6959 


.6959 
.6959 


6959 


.6959 


6959 


.6959 


6959 
6959 


.6959 
.6959 
.6959 
.6959 
.6959 


6959 
6959 


6959 
6959 


.6959 
.6959 
.6959 


6959 


.6959 


6959 


TEMPERATURE OISTRIBUTION IN THE BACK-UP STRUCTURE (OEG-F) 
O TSOOOO0E +02 0. TSQOOO00E +02 0. TSQ00000E +02 0. TSOO000E +02 
0. TSQOO00E +02 0. TSOOOO00E +02 0. TSQOO000E +02 


0. TSQO000E +02 0. TSQOOQ00E +02 


TEMPERATURES AT SELECTED THERMOCOUPLE LOCATIONS OEPTH - (IN), TEMPERATURE - (DEG-F) 
OEPTH TEMPERATURE 
0.62500000E -01 0. 18330067E+03 
0. 125Q00000E +00 0.18153737E+03 
0. 25000000E +00 0. 16272862E+03 
0. SOOOOOOOE +00 0. 113964505E +03 
0. 10000000E +0 1 0.77278625E +02 


PENETRATION DEPTHS (IN) 


200.00 (OEG-F} ISOTHERM= 0. 18996E+00 
400.00 (OEG-F) ISOTHERM= 0.65940E-01 


MAX DEPTH OF 
MAX OEPTH OF 


GEPTH OFO.10000 GENSITY RATIG= 0.00000E+00 
DEPTH DFO.90000 DENSITY RATIO= 0.59143E-01 


OEPTH OF 
DEPTH OF 


200.00 (QEG-F) ISOTHERM= 0.O0000E+00 
400.00 (DEG-F) ISDTHERM= 0.00000E+00 


EQUIVALENT TEST SPECIMEN LOSS= 0.02255 (IN) EQUIVALENT TEST SPECIMEN LENGTH= 1.97745 (IN) 


iS 


*eneee TIME= 5.20000E+02 TIME STEP= 1.Q00000E+00 
FCONV= 1.Q0000E +00 FRAG= 1.00000E+00 VELDCITY= 1.00000E+01 
Q CONVECTIVE= 0.Q0000E +00 Q RAOIATIVE= 0.00000E+00 ANGLE OF ATTACK= 0.Q0000E +00 
GAS ABLATION RATE= 0.Q00000E+00 CHAR ABLATION RATE= 0.00000E+00 TOTAL ABLATION RATE= 0.0Q0000E+00 
RECESSION OEPTH= 0.Q00000E+00 RECESSION RATE= 0.0Q0000E+00 SUBLIMATION RATE= 0.Q0000E+00 
QIN=-3.46876E -02 QRERAG= 3.46876E -02 TQOSUBL= 0.O0000E +00 ALPHA= 1.07123E+00 
OHOT WALL= 0.00000E+00 OS102= 0.O00000E +00 TQOXID= 0.00000E +00 BCOF= 0.Q0000E +00 
QWB= 0.Q0000E+00 TOIN= 1.86670E+03 TQORERAD= 1.43300E+02 G= 0.O00000E +00 
OBLOCK= 0.00000E+00 TQOHW= 0.O00000E+00 HTX-HW=-2.62463E+01 PL= 1.46960E+01 
QSUBL= 0.O0000E +00 TQORAOX= 2.01000E+03 HTX2 1.29062E +02 PLPT= 1.Q00000E +00 
QOXIO= 0. 00000E +00 TOBLOCK= 0.QQ000E+00 RHOST= 3.76353E+01 WX= 1. 00000E+00 
TEST SPECIMEN PROFILES AT THE ENO OF THE TIME STEP, TIME= 5.21000E+02 
x TEMPERATURE DENSITY THETA M OOT M COKE MT COKE PRESSURE 
(IN) (OEG-F) (LB/FT3) (LB/FT2-HR) (LB/FT2-HR) (LB/FT2-HR) (PSI) 
0.00000 iste. 41.64 0.3371 ©.Q000000E+00 0.0000000E+00 0.0000000E+00 14.6959 
0.06897 179.7 83.78 0.9935 0.O0000000E+00 0.O0000000E+00 0.0000000E+00 14.6959 
0.13793 177.3 84.19 0.9999 0.Q0000000E+00 0.O0000000E+00 0.0000000E +00 14.6959 
0.20690 168.8 84.20 1.0000 0.O0000000E+00 0.0000000E+00 0.O0000000E+00 14.6959 
0.27586 156.5 84.20 1.0000 0.O0000000E+00 0.Q000000E+00 0.Q000000E+00 14.6959 
0.34483 142.8 84 20 1.0000 0.Q0000000E+00 0.Q0000000E+00 0.0000000E +00 14.6959 
0.41379 129.4 84.20 1.0000 0.O0000000E+00 0.O0000000E+00 0.0000000E +00 14.6959 
0.48276 117.4 84.20 1.0000 0.Q0000000E+00 0.0000000E+00 0.0000000E+00 14.6959 
0.55172 107.1 84.20 1.0000 0.OQ0000000E+00 0.Q0000000E+00 0.0000000E +00 14.6959 
0.62069 98.6 84.20 1.0000 0.Q0000000E+00 0.0000000E+00 0.O000000E +00 14.6959 
0.68965 G29 84.20 1.0000 0.Q0000000E+00 0.0000000E+00 0.0000000E+00 14.6959 
0.75862 86.8 84.20 1.0000 0.O0000000E+00 0.O000000E+00 0.0000000E +00 14.6959 
0.82759 82.9 84 20 1.0000 0.O0000000E+00 0.0000000E+00 0.0000000E +00 14.6959 
0.89655 80.2 84.20 1.0000 0.O0000000E+00 0.Q0000000E+00 0.0000000E+00 14.6959 


oooooococeceoooo°o°cnoo 


0.96552 78.3 84.20 1.0000 0.Q0000000E+00 0.0000000E +00 
1.03448 7720 84.20 1.0000 0.Q0000000E+00 G.O0000000E+00 
1.10345 76.2 84.20 1.0000 0.Q0000000E+00 © OOOCOOCE+00 
1.17241 75.7 84.20 1.0000 0.OQ000000E+00 0.0000000E+00 
1.241937 75.4 84.20 1.0000 0.O0000000E+00 0©0.0000000E +00 
1.31034 TS 84.20 1.0000 0.O0000000E+00 0.0000000E+00 
1.37930 75.1 84.20 1.0000 0.O0000000E+00 0.0000000E+00 
1.44827 75.0 84.20 1.0000 0.O0000000E+00 0.0000000E+00 
1.51723 75.0 84.20 1.0000 0.OC000000E+00 0.0000000E+00 
1.58620 75.0 84.20 1.0000 0.0000000E+00 0.0000000E+00 
1.65516 75.0 84.20 1.0000 0.0000000E+00 0.0000000E+00 
1.72413 75.0 84.20 1.0000 0.0000000E+00 0.0000000E+00 
1.79309 75.0 84.20 1.0000 0.Q000000E+00 0.0000000E+00 
1.86206 75.0 84.20 1.0000 0.0000000E+00 ©0.0000000E+00 
1.93102 75.0 84.20 1.0000 0.Q000000E+00 0.000CQ000E+00 
1.99999 75.0 84.20 1.0000 0.O0000000E+00 0.0000000E+00 
TEMPERATURE OISTRIBUTION IN THE BACK-UP STRUCTURE (OEG-F) 


0. TSO0000E +02 
0. 7T500000E +02 


0. T500000E+02 
0. TS500000E+02 


0. TSQO000E +02 
0. T500000E +02 


TEMPERATURES AT SELECTEQ THERMOCOUPLE LOCATIONS 


OEPTH 
0.62500000E -01 
0. 12500000E +00 
0. 25000000E +00 
0. SOOOOOCOOE +00 
0. 10000000E+01 


PENETRATION OEPTHS (IN) 


MAX OEPTH OF 
MAX OEPTH OF 


OEPTH - 


200.00 (OEG-F) ISOTHERM= 0. 18996E+00 
400.00 (OEG-F) ISOTHERM= 0.65940E-01 


0. TSQO0000E +02 


(IN), 


0. T500000E +02 


TEMPERATURE 


TEMPERATURE 


oo°o0c°o 


.17955167E +03 
. 17820279E+03 
. 161283 17E+03 
. 11460580E +03 
. 77605087E +02 


. OOOOCODE +00 
. COOOCOOE +00 
. COOCOOOE +00 
. OOOCOOCOOE +00 
. OOOOOOOE +00 
. OOOOOOOE +00 
. OOOCOOODE +00 
. OOOOOO00E +00 
. COOOOOODE +00 
. COOOOOOE +00 
. OOOOOOOE +00 
. COOOCOOE +00 
. OOOOOODE +00 
. COOOOO0E +00 
. COCOOOOE +00 
. OOOOCOOE +00 


.6959 
.6959 
.6959 
.6959 
.6959 
.6959 
.6959 
.6959 
.6959 
.6959 
.6959 
.6959 
.6959 
.6959 
.6959 
.6959 


0. T5QO0000E +02 


- (OEG-F) 


OEPTH OF 200.00 (OEG-F) ISOTHERM= 0.00000E+00 OEPTH OFO. 10000 OENSITY RATIO= 0.00000E+00 
OEPTH OF 400.00 (OEG-F) ISOTHERM= 0.00000E+00 OEPTH OFO.90000 OENSITY RATIO= 0.59149E-01 
EQUIVALENT TEST SPECIMEN LOSS= 0.02255 (IN) EQUIVALENT TEST SPECIMEN LENGTH= 1.97745 (IN) 
eeeeee TIME= 5.40000E+02 TIME STEP= 1.Q00000E+00 
FCONV= 1.00000E+00 FRAQ= 1.Q00000E+00 VELOCITY= 1.Q00000E+01 
Q CONVECTIVE= 0.00000E+00 Q RAOIATIVE= 0.00000E+00 ANGLE OF ATTACK= 0.OO000€ +00 
GAS ABLATION RATE= 0.00000E+00 CHAR ABLATION RATE= 0.00000E+00 TOTAL ABLATION RATE= 0.00000E+00 
RECESSION OEPTH= 0.00000E+00 RECESSION RATE= 0.OQ0Q00E+00 SUBLIMATION RATE= 0.O00000E+00 
QIN=-3.932691E-02 ORERAO= 3.32631E-02 TQSUBL= 0.OQOQ000E+00 ALPHA= 1.07123E+00 
QHOT WALL= 0.O00000E+00 QSI02= 0.00000E+00 TQOXIO= 0. O00000E +00 BCOF= 0.QOOO0E +00 
QWB= ©0.O00CO00E+00 TOIN= 1.86602E+03 TQRERAQ= 1.43979E+02 G= 0.Q0Q0000E +00 
QBLOCK= O.OQO0O000E +00 TQHW= O.OQOQO00E +00 HTX -HW=-2.54537E+01 PL= 1.46960E+01 
QSUBL= 0.O0000E+00 TQRAOX= 2.01000E +03 HTX= 1.29062E+02 PLPT= 1.Q00000E +00 
QOXIO= 0.O00000E+00 TQBLOCK= 0.O00000E +00 RHOST= 3.76353E+01 WX= 1.00000E+00 
TEST SPECIMEN PROFILES AT THE ENO OF THE TIME STEP, TIME? 5.41000E+02 


72 


X 
(IN) 
. 00000 
.06897 
.1397993 
. 20690 
.27986 
.34483 
.41379 
. 48276 
95172 
.62069 
.68965 
. 75862 
.82759 
. 89655 
. 96552 
.03448 
. 10345 
.17241 
. 24137 
.91034 
.397930 
. 44827 
.§17293 
. 58620 
.65516 
.72413 
. 79309 
. 86206 
.93102 
.99999 


TEMPERATURE OISTRIBUTION IN THE 8ACK-UP STRUCTURE 
0. TSQOOOOOE +02 
0. TSOOOOQ0E +02 


0. TSOOOOOE +02 
0. TSOOOO0E +02 


TEMPERATURES AT SELECTED THERMDCDOUPLE LOCATIONS 


PENETRATION DEPTHS 


TEMPERATURE DENSITY THETA 
(OEG-F) (LB/FT3) 
170.7 41.64 0.39371 
176.3 83.78 O-9935 
174.3 84.19 0.9999 
166.7 84.20 1.0000 
155.4 84.20 1.0000 
142.6 84.20 1.0000 
129.8 84.20 1.0000 
118.1 84.20 1.0000 
108.0 84.20 1.0000 
99.6 84.20 1.0000 
S22 84.20 1. 0000 
87.6 84.20 1.0000 
83.6 84.20 1.0000 
80.7 84.20 1.0000 
Thee 84.20 1.0000 
4153 84.20 1.0000 
76.4 84.20 1.0000 
75.8 84.20 1.0000 
73:5 84.20 1.0000 
Biel? 84.20 1.0000 
75.1 84.20 1.0000 
Sion 84.20 1.0000 
75.0 84.20 1.0000 
75.0 84.20 1.0000 
75.0 84.20 1.0000 
12.0 84.20 1.0000 
75.0 84.20 1. 0000 
75.0 84.20 1.0000 
75.0 84.20 1.0000 
fa,0 84.20 1.0000 


MAX DEPTH OF 
MAX DEPTH OF 


DEPTH DF 
DEPTH OF 


EQUIVALENT TEST SPECIMEN LOSS= 


200.00 (DEG-F) ISOTHERM= 0.00000E+00 
400.00 (DEG-F) ISOTHERM= 0.00000E+00 


0. TSOOOOOE +02 
0. TSOOOO0OE +02 


DEPTH 
0.62S5S00000E -01 
0. 12S00000E +00 
0. 25000000E +00 
0. SOOOOCOOOE +00 
0. 1\O000000E +01 


(IN) 


0.02255 (IN) 


ooooogoooooooococoooo9ooocoooooooo°o 


M OOT 
(LB/FT2-HR) 


. QOOOOO0E +00 
. QOOOOOOCE +00 
. OOOOOOOE +00 
. OCOOOOOOE +00 
. OCOOOOOOE +00 
. OOOOOOOE +00 
. COOOODOODE +00 
. COOOOOCE +00 
. COOOOOCE + 00 
. COOOOOOCE +00 


OOOOQOOOE +00 
OOOOOOOE +00 
OOOOOOOE + 00 
OQOOOOOOE +00 
OOOOOOOE +00 
OOOOOOODE +00 
OOOOOOOE +00 
OOOOOOODE +00 
OOOOOOODE +00 
OOOOOOOE +00 


. OCOOOOOODE +00 
. COOOOOCE +00 


OOOOOOOE +00 
OOOOCOOOE +00 


. OOOOOOOE +00 
. COOOOOOE +00 
. OCOOOOOOE +00 


OOOOOOOE +00 


. COOOOCOCE +00 
. COOOOOOE +00 


(DEG-F) 


0. TSOQOOOE +02 


DEPTH - 


200.00 (DEG-F) ISOTHERM: 0. 18996E+00 
400.00 (DEG-F) ISOTHERM= 0.65940E-01 


EQUIVALENT TEST SPECIMEN LENGTH= 


180 


(IN), 


oooooooooooco0ooco0ooooocooo9o00000 000 


M COKE 
(L8/FT2-HR) 


. COOOOOOE +00 
. COOOOCOOE +00 
.OOOO000E +00 
. COOOOOOE +00 
. COOOOOOE +00 
. OOOOOOOE +00 


OOOOOOOE +00 


. OCOOOODOODE +00 


OOOOCOOOE +00 
OOOOOOOE +00 
OOOOOOOE +00 


. COOOOOOE +00 
. COOOOOOCE +00 


OOOOOOOE +00 
OOOOOOOE +00 
OQOOOOOOE +00 
OQOOOOOOE +00 
OOOOOQOOE +00 
OOOOOOOE +00 
OOOOOOOE +00 


. COOOOOOCE +00 
. OCOOOOOOE +00 
. OOOOOOOCE +00 
. DOOOOOOE +00 
. QOOOOOOE +00 
. OCOOOOOOE +00 
. COOOOQOOE +00 
. OCOOOOODE +00 
. OCOOOOOOE +00 
. COOOOOOE +00 


0. TSOOOOOE +02 


TEMPERATURE 


oooooooooooooooooooo9ooo9o oo 000° 


MT COKE 
(L8/FT2-HR) 


. OCOOOOOOE +00 
. COOOOOOE +00 


OOOOOOOE +00 


. COOOOOOE +00 


QOOOOOOE +00 
OOOOOOOE +00 


. COOOOOOE +00 
. COOOOOCE +00 
. COOOOODE +00 


PRESSURE 
(PSI) 


14. 
14, 
14, 
14 

14. 
14, 
14, 
14. 


0. TSOOOOOCE +02 


- (OEG-F) 


6959 
6959 
6959 
6959 
6959 
6959 
6959 
6959 


.6959 
.6959 
.6959 
.6959 
.6959 
.6959 
.6959 
.6959 
-6959 
.6959 
.6959 
.6959 
.6959 
.6959 
.6959 
.6959 
.6959 
.6959 
.6959 
.6959 
.6959 
.6959 


TEMPERATURE 

. 17610822E +03 
. 17510283€ +03 
. 15983322E +03 
. 11545346E+03 
. 77947250E +02 


ooo0c°o 


DEPTH DFO. 10000 DENSITY RATIO= 0.00000E+00 
DEPTH OFO.90000 DENSITY RATIO= 0.59143E-01 


1.97745 (IN) 


*+#eee*e TIME= 5.60000E +02 TIME STEP= 1.Q00000E+00 
FCONV= 1.Q00000E+00 FRAO= 1.00000E+00 VELOCITY= 1.Q0000E+01 
Q CONVECTIVE= 0.O0000E +00 Q RADIATIVE= 0.O0000E +00 ANGLE OF ATTACK= 0.OOQ000E+00 


GAS ABLATION RATE= O.O00000E+00 CHAR ABLATION RATE= 0.Q0000E+00 TOTAL A8LATION RATE= 0.O00000E+00 
RECESSION OEPTH= 0.00000E+00 RECESSION RATE= 0.O00000E+00 SUSLIMATION RATE= 0.00000E+00 
QIN=-3. 19671E-02 QRERAO= 3.19671E-02 TQSU8L= 0.Q00000E +00 ALPHA= 1.07123E+00 
QHOT WALL= 0.O0000E +00 QSIO2= 0.00000E +00 TQOxIO= O.O0000E +00 BCOF= 0.Q00000E+00 
QWB= 0.O00000E +00 TQIN= 1.86537E+03 TORERAD= 1.44631E+02 G= 0.00000E+00 
QBLOCK= 0.00000E+00 TQHW= 0.O00000E+00 HTX-HW=-2.47219E+01 PL= 1.46960E+01 
QSUBL= 0. O0000E +00 TQRAOX= 2.01000E+03 HTX= 1.29062E+02 PLPT= 1.00000E+00 
QOxIO= 0.O00000E+00 TQBLOCK= 0.00000E+00 RHOST= 3.76353E+01 WX= 1.00000E+00 
TEST SPECIMEN PROFILES AT THE END OF THE TIME STEP, TIME= 5.61000E+02 
xX TEMPERATURE DENSITY THETA M DOT M COKE MT COKE PRESSURE 
(IN) (OEG-F) (L8/FT3) (LB/FT2-HR ) (LB/FT2-HR) (LB/FT2-HR). (PSI) 
0.00000 167.7 41.64 0.3371 ©0.O0000000E+00 0.0000000E+00 0.0000000E+00 14.6959 
0.06897 1739.4 83.78 0.9935 0.Q000000E+00 0.0000000E+00 0.CO00000E +00 14.6959 
0.13793 171.5 84.19 0.9999 0.Q0000000E+00 O.Q000000E+00 0.0000000E+00 14.6959 
0.20690 164.7 84.20 1.0000 0.O0000000E+00 0.0000000E+00 0.0000000E +00 14.6959 
0.27586 154.3 84.20 1.0000 0.0000000E+00 0.0000000E+00 0.0000000E +00 14.6959 
0.34483 142.3 84.20 1.0000 0.O0000000E+00 0.Q0000000E+00 0.0000000E +00 14.6959 
0.41379 130.1 84.20 1.0000 0.O0000000E+00 0.0000000E+00 0.0000000E+00 14.6959 
0.48276 118.8 84.20 1.0000 0.O0000000E+00 0.O0000000E+00 0.0000000E+00 14.6959 
0.55172 108 .9 84.20 1.0000 0.0000000E+00 O0.0000000E+00 0.0000000E +00 14.6959 
0.62069 100.6 84.20 1.0000 0.O0000000E+00 0.O0000000E+00 0.O0000000E +00 14.6959 
0.68965 93.8 84.20 1.0000 0.O0000000E+00 0.Q000000E+00 0.0000000E +00 14.6959 
0.75862 88.4 84.20 1.0000 0.O0000000E+00 0.0000000E+00 0.0000000E +00 14.6959 
0.82759 84.3 84.20 1.0000 0.0000000E+00 0.0000000E+00 0.0000000E +00 14.6959 
0.89655 81.3 84.20 1.0000 0.0000000E+00 0.0000000E+00 0.0000000E +00 14.6959 
0.96552 79.1 84.20 1.0000 0.0000000E+00 0.0000000E+00 0.0000000E +00 14.6959 
1.03448 77.6 84.20 1.0000 0.QCO0000E+00 O0.0000000E+00 0.0000000E +00 14.6959 
1.10345 76.6 84.20 1.0000 O.Q0000000E+00 0.0000000E+00 0.0000000E +00 14.6959 
1.17241 76.0 84.20 1.0000 0.0000000E+00 0.O0000000E+00 0. 0000000E +00 14.6959 
1.24137 75.6 84.20 1.0000 0.O0000000E+00 0.0000000E+00 0. 0000000E +00 14.6959 
1.31034 75.3 84.20 1.0000 0.O0000000E+00 0.0000000E+00 0.0000000E+00 14.6959 
1.37930 75.2 84.20 1.0000 0.0000000E+00 0.0000000E+00 0.0000000E+00 14.6959 
1.44827 75.1 84.20 1.0000 0.0000000E+00 0O.Q000000E+00 0.0000000E+00 14.6959 
1251729 75.0 84.20 1.0000 0.0000000E+00 0.0000000E+00 0.0000000E+00 14.6959 
1.58620 75.0 84.20 1.0000 0.O0000000E+00 0.0000000E+00 0.0000000E+00 14.6959 
1.65516 T5520 84.20 1.0000 0.O0000000E+00 O0.0000000E+00 0. 0000000E +00 14.6959 
1.72413 75.0 84.20 1.0000 0.O0000000E+00 0.0000000E+00 0.0000000E+00 14.6959 
1.79309 75.0 84.20 1.0000 0O.O0000000E+00 0.0000000E+00 0. 0000000E +00 14.6959 
1.86206 75.0 84.20 1.0000 0.0000000E+00 0.O0000000E+00 0.0000000E+00 14.6959 
1.93102 75.0 84.20 1.0000 0.O0000000E+00 0.O0000000E+00 0.0000000E +00 14.6959 
1.99999 75.0 84.20 1.0000 0.O0000000E+00 0.0000000E+00 0.0000000E+00 14.6959 


TEMPERATURE DISTRIBUTION IN THE 8ACK-UP STRUCTURE (DEG-F) 
0. TS5Q00000E +02 0. TSO0000E +02 0. TS500000E +02 0. TSOQ000E +02 
0. TSOOO00E +02 0. TS500000E +02 0. TSQO0000E +02 


0. TSQQ000E +02 0. TSQOO0000E +02 


TEMPERATURES AT SELECTEO THERMOCOUPLE LOCATIONS DEPTH - (IN), TEMPERATURE - (OEG-F) 


TEMPERATURE 
0.17293181E+03 


DEPTH 
0. 62500000E - 01 


het 


PENETRATION DEPTHS 


MAX 
MAX 


OEPT 
DEPT 


DEPTH OF 
DEPTH OF 


H OF 
H OF 


0. 12500000E +00 
0. 2Z5000000E +00 
0 . SOOOOOOODE +00 
0. 10000000E+01 


(IN) 


EQUIVALENT TEST SPECIMEN LOSS= 


seeee* TIME= 5. 80000E+02 


OIN=-3.07831E-02 ORERAO= 3.07831E-02 TOSUBL= 0.O0000E +00 

QHOT WALL= 0.00000E +00 QSI02= 0.00000E +00 TQOXIO= 0.O00000E+00 

OWB= 0.O00000E+00 TOIN= 1.86474E+03 TORERAQ= 1.45258E+02 

QBLOCK= 0.O00000E+00 TOHW= 0. O0Q000E +00 HTX -HW=-2.40441E+01 

OSUBL= 0.O00000E +00 TQRAQX= 2.01000E+03 HTX= 1.29062E+02 

QOxID= 0.00000E +00 TOBLOCK= 0.O0Q000E +00 RHOST= 3.769353E+01 

TEST SPECIMEN PROFILES AT THE ENO OF THE TIME STEP, TIME= 5.81000E+02 
X TEMPERATURE DENSITY THETA M ODOT M COKE 

(IN) (OEG-F) (L8/FT3) (LB/FT2-HR) (LB8/FT2-HR) 
0.00000 165.0 41.64 0.3371 O.OQO000000E+00 0. 0000000E +00 
0.06897 17022 83.78 0.9935 0.Q000000E+00 0.0000000E+00 
0.13793 168.9 84.19 0.9999 0.0000000E+00 0.0000000E +00 
0.20690 162.7 84.20 1.0000 0.O000000E+00 0.0000000E +00 
0.27586 1Sd5.2 84.20 1.0000 0.O0000000E+00 0.0000000E +00 
0.34483 141.9 84.20 1.0000 0.O000000E+00 0.0000000E +00 
0.41379 130.3 84.20 1.0000 0O.Q000000E+00 0. O0000000E +00 
0.48276 119.4 84.20 1.0000 0.QO000000E+00 0.Q000000E +00 
O759172 109.7 84.20 1.0000 0.O0000000E+00 0.0000000E+00 
0.62069 101.5 84.20 1.0000 0.Q0000000E+00 0.0000000E+00 
0.68965 94.7 84.20 1.0000 0.O0000000E+00 0.0000000E +00 
0.75862 BIz2Z 84.20 1.0000 0.O0000000E+00 0.0000000E+00 
0.82759 85.0 84.20 1.0000 0.O0000000E+00 0.0000000E +00 
0.89655 81.8 84.20 1.0000 0.Q000000E+00 0.0000000E +00 
0.96552 79.5 84.20 1.0000 0.0000000E+00 0.0000000E +00 
1 03448 129 84.20 1.0000 0.O0000000E+00 0.O0000000E +00 
1.10345 76.8 84.20 1.0000 0.O000000E+00 0.0000000E +00 
1 17241 76.1 84 20 1.0000 0O.Q000000E+00 0. O0000000E +00 
1.24137 i Tet 84.20 1.0000 O.QO00000E+00 0.O0000000E +00 
1.31034 Lines | 84.20 1.0000 0O.QO000000E+00 0.O000000E +00 
1.37930 Poe 84.20 1.0000 0.O0000000E+00 0. 0000000E +00 
1.44827 73:41 84.20 1.0000 0.Q000000E+00 0.O0000000E +00 
a ee Me ae a8 75.0 84.20 1.0000 0.O0000000E+00 0.O000000E +00 


FCONV= 


1.0Q0000E +00 


Q CONVECTIVE= 0.00000E+00 
GAS ABLATION RATE= 
RECESSION OEPTH= 0.00000E+00 


0 .OOO000E +00 


TIME STEP= 


200.00 (QEG-F) ISOTHERM= 0.00000E+00 
400.00 (OEG-F) ISOTHERM= 0.00000E+00 


0.02255 (IN) 


FRAD= 


0. 17221243E+093 
0. 15839281E+03 
0. 11619624E+03 
0. 78304260E+02 


200.00 (DEG-F) ISOTHERM= 0. 18996E+00 
400.00 (QEG-F) ISOTHERM= 0.65940E-01 


DEPTH OFO.10000 OENSITY RATID= 0.00000E+00 
DEPTH OFO.90000 OENSITY RATIO= 0.59143E-01 


1. OOOO0E +00 


1. OOOO0E +00 


Q RAOQIATIVE= 0.00000E+00 
CHAR ABLATION RATE= 0.Q00000E+00 
RECESSION RATE= 0.00000E+00 


EQUIVALENT TEST SPECIMEN LENGTH= 


VELOCITY= 


1.97745 (IN) 


1. OOOOOE +01 


ANGLE OF ATTACK= 0.QOO000E +00 
TOTAL ABLATION RATE= 0.O0000E+00 
SUBLIMATION RATE= 0.O0000E+00 


ie 2 


ooo0ooo0o0ooo0o0c°o0cococdcdco0o°0o0o0°o0°o00o0°0o:sd 


ALPHA= 
BCOF= 
G= 

PL= 
PLPT= 


WX= 


MT COKE 
(LB/FT2-HR) 


. OCOOOOOODE +00 
. OCOOOOOOE + 00 
. OOOOOOOCE +00 
. COOOOOODE + 00 
. OOOOOOODE +00 
. COOOOOOE +00 
. COOOCOOOE +00 
. OCOOOOOOE + 00 
. COOOCOOOE + 00 
. COOOO0D0E +00 


. OOOOOODOE +00 


OOOOOOCOE +00 
OOOOOOOE +00 


. OCOOCOOOE +00 
. OCOOOODODE +00 
. OCOOOOOOE +00 
. OOOOCOOOE +00 
. COOOOODE +00 


1.07123E +00 
0. OOOOOE +00 
0. OOOO0E +00 
1.46960E+01 
1. OOOOOE +00 
1. OOOOOE +00 


PRESSURE 
(PSI) 
14.6959 
.6959 
6959 
.6959 
.6959 
.6959 
.6959 
.6959 
.6959 
.6959 
.6959 
6959 
.6959 
.6959 
.6959 
.6959 
.6959 
6959 
.6959 
.6959 
.6959 
.6959 
.6959 


14 


.6959 
14. 
14. 
.6959 
14. 
14. 


6959 
6959 


6959 
6959 


1.58620 75.0 84.20 1.0000 0.Q0000000E+00 O0.Q000C0N00E+00 0.0000000E +00 
1.65516 75.0 84.20 1.0000 0.0000090E+00 O OCOOOCODE+00 0. 0000000E +00 
1.724193 75.0 84.20 1.0000 0.0000000E+00 0.0000000E+00 0.0000000E +00 
1.79309 7520 84.20 1.0000 0.0000000E+00 0.0000000E+00 0.0000000E +00 
1.86206 75.0 84.20 1.0000 0.Q0000000E+00 0.0000000E+00 0.0000000E +00 
1.93102 19.20 84.20 1.0000 0.0000000E+00 0.0000000E+00 0.0000000E +00 
1.99999 75.0 84.20 1.0000 0.0000000E+00 0.0000000E+00 0.0000000E +00 


TEMPERATURE OISTRIBUTION IN THE BACK-UP STRUCTURE (OEG-F) 
0.7500000E+02 0.7500000E+02 0.7500000E+02 0. 7500000E+02 
0.7500000E+02 0.7500000E+02 0. 7500000E+02 


0. TS00000E +02 


OEPTH - (IN), 


TEMPERATURES AT SELECTEO THERMOCOUPLE LOCATIONS TEMPERATURE - (OEG-F) 
OEPTH TEMPERATURE 
0.62500000E -01 0. 16999028E +03 
0. 12500000E +00 0. 16951106E+03 
0. 25000000E +00 0. 15696899E +03 
0. SOOOOO00E +00 0.11684436E+03 
0. 10000000E +01 0.78672806E+02 


PENETRATION OEPTHS (IN) 


14.6959 


0. TSOOO00E +02 


MAX OEPTH OF 200.00 (OEG-F) ISOTHERM= 0. 18996E+00 
MAX OEPTH OF 400.00 (OEG-F) ISOTHERM= 0.65940E-01 
OEPTH OF 200.00 (OEG-F) ISOTHERM= 0.00000EF+00 OEPTH OFO.10000 OENSITY RATIO= 0.00000E+00 
OEPTH OF 400.00 (OEG-F) ISOTHERM= 0.00000E+00 OEPTH OFO.90000 OENSITY RATIO= 0.59143E-01 


EQUIVALENT TEST SPECIMEN LOSS= 0.02255 (IN) EQUIVALENT TEST SPECIMEN LENGTH= 


#*9**9% TIME= 6.Q00000E+02 TIME STEP= 1.00000E+00 
1 


FRAO= 1.00000E +00 VELOCITY= 
Q RAOIATIVE= 0.00000E +00 
CHAR ABLATION RATE= 0.00000E +00 


FCONV= 1.00000E+0C 
Q CONVECTIVE= 0.00000E+00 


GAS ABLATION RATE= 0.00000E+00 TOTAL ABLATION RATE= 


1.97745 (IN) 


1.00000E+01 


ANGLE OF ATTACK= 0.00000E+00 
0. OOOOOE +00 
SUBLIMATION RATE= 0.Q00000E+00 


07123E+00 
OOOOOE +00 
OOOOOE +00 
46960E+01 
OOOOOE +00 


ue 
0. 
0. 
Le 
1. 
1. OOOCOE +00 


PRESSURE 


RECESSION OEPTH= 0.00000E+00 RECESSION RATE= 0.00000E+00 
OIN=-2.96963E-02 ORERAO= 2.96963E-02 TOSUBL= 0.00000E +00 ALPHA= 
QHOT WALL= 0.00000E+00 0S102= 0.00000E +00 TOOXIO= 0.00000E+00 8COF = 
QWB= 0.00000E+00 TOIN= 1.86414E+03 TORERAO= 1.45863E+02 G= 
OB8LOCK= 0.00000E+00 TOHW= 0.00000E +00 HTX-HW=-2.34140E+01 PL= 
QSUBL= 0.00000E +00 TQRAOX= 2.01000E+03 HTX= 1.29062E+02 PLPT= 
QOXIO= 0.00000E +00 TOBLOCK= 0.00000E+00 RHOST= 3.76353E+01 WX= 
TEST SPECIMEN PROFILES AT THE ENO OF THE TIME STEP, TIME= 6.01000E+02 
X TEMPERATURE OENSITY THETA M OOT M COKE MT COKE 
(IN) (OEG-F) (LB/FT3) (L8/FT2-HR) (L8/FT2-HR) (LB8/FT2-HR) 
0.00000 162.4 41.64 0.3371 0.Q000000E+00 0.0000000E+00 0.0000000E+00 
0.06897 167.5 83.78 0.9935 0.0000000E+00 0.0000000E+00 0.0000000E +00 
0.13793 166.4 84.19 0.9999 0.0000000E+00 0.0000000E+00 0.0000000E +00 
0.20690 160.9 84.20 1.0000 0.0000000E+00 0.0000000E+00 0.0000000E +00 
0.27586 152.1 84.20 1.0000 0.0000000E+00 0.0000000E+00 0.0000000E+00 
0.34483 141.5 84.20 1.0000 0.Q000000E+00 0.0000000E+00 0.0000000E +00 


fos 


(PSI) 


14 
14 


14 
14 
14 


.6959 
.6959 
14. 
.6959 
.6959 
.6959 


6959 


41379 
. 48276 
.§5172 
62069 
68965 
. 75862 
.82759 
.89655 
.96552 
.03448 
. 10345 
17241 
. 24137 
. 31034 
. 37930 
.44827 
<S1723 
. 58620 
.65516 
.72413 
. 79309 
. 86206 
.93102 
.99999 


TEMPERATURE OISTRIBUTION IN THE BACK-UP STRUCTURE 
0. TSOOOO0E +02 
0. TSOOOOOE +02 


0. TSOOOO0E +02 
0. TSOO000E +02 


TEMPERATURES AT SELECTEQ THERMDCOUPLE LOCATIONS 


PENETRATION OEPTHS 


MAX OEPTH OF 
MAX DEPTH OF 


OEPTH OF 
OEPTH OF 


EQUIVALENT TEST SPECIMEN LOSS= 


COKDTCOOm=NEdBWHVOAHROUWEAWS 


200.00 (GEG-F) ISOTHERM= 
400.00 (DEG-F) ISOTHERM= 


84.20 1.0000 
84.20 1.0000 
84.20 1.0000 
84 20 1. 0000 
84.20 1.0000 
84.20 1.0000 
84.20 1.0000 
84.20 1.0000 
84.20 1.0000 
84.20 1.0000 
84.20 1.0000 
84.20 1.0000 
84.20 1.0000 
84.20 1.0000 
84.20 1.0000 
84.20 1.0000 
84.20 1.0000 
84.20 1.0000 
84.20 1.0000 
84.20 1.0000 
84.20 1.0000 
84.20 1.0000 
84.20 1.0000 
84.20 1.0000 


OEPTH 
0.62500000E - 01 
0. 12500000E +00 
0. 25000000E +00 
0. SOOOOOOOCE +00 
0. 1\O000000E +01 


CIN) 


0. 7500000E +02 
0. TSOOO000E +02 


0.02255 (IN) 


200.00 (OEG-F) ISOTHERM= 0.00000E +00 
400.00 (OEG-F) ISOTHERM= 0.O00000E+00 


ooooooooo9ooooco oo o0000000 


. OOOCOOO0E +00 
. OCOOOOOOE +00 
. OOOOOOOE +00 


OOOQOOOOE +00 
OOOOOOOE +00 
OOOOOOOE +00 


. OOOOOOCOE +00 


OOOOOOOE +00 
OOOOOOOE +00 
OOOOOODE +00 
OOOOOOOE +00 
OOOOOOOE +00 


. COOOOOOE +00 
- OCOOOOODE +00 


OOOOOOOE +00 


. COOOOCOE +00 


OOOOOOOE +00 
OOOOOOOE +00 


. OOOOOODE +00 
. COOOOOODE +00 
. COOOOODE +00 
. OCOOOOO0E +00 
- COOOOODE +00 
. COOOOOOE +00 


(OEG-F) 


0. TSQOO000E +02 


OEPTH: = 


0. 18996E+00 
0.65940E -01 


EQUIVALENT TEST SPECIMEN LENGTH= 
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(IN), 


ooMe Moo RoMooemoeMo nolo ieNemeenene (= = (.(s, 


. NOOOOOOE +00 
. OOOOOODE +00 
. OOOOOOOE +00 
. OOOOOODE +00 
. OOOOOOOE +00 


OOOOOOOE +00 


- COOOOOCOE +00 
. COOOOOOE +00 
- COOOOOOE +00 
. COOOOODOE +00 


OOOOOODE +00 


. COOOOOOE +00 
- OCOOOOODE +00 


OOOOOOOE +00 


- OOOOOODE +00 


OOOOOOOE +00 
OOOOOOOE +00 


. OCOOOOCOE +00 
. OCOOOOOOE +00 
. COOOOOODE +00 
- OOOOOODE +00 
- OOOOOOOE +00 
- COOOOOOE +00 
- OOOOOODE +00 


0. TSOOO00E +02 


TEMPERATURE 


oooooococococoeocoooccooooo0o0°osd 


0. 1672569 1E +03 
0. 16698015E +03 
0. 15556956E +03 
0. 11740486E+03 
0.79052475E+02 


. COOOOOOE +00 
. COOOOOOE +00 
. OOOOOOOE +00 
. OOOOOOOE +00 
. COOOOOOE +00 
. OCOOCOOOE +00 
. DOCQOOOE +00 
. COOOOOOE +00 
. COOOOOOE +00 
. COOOOODE +00 
. COOODOODE +00 
. COOOOOODE +00 
. COOOOODE +00 
. COOOOOOE +00 
. COOOOOOE +00 
. COOOOOOE +00 
. COOOOOOE +00 
. COOOOOCOE +00 
. COOOOOOE +00 
. COOOOCOE +00 
. COOOOOOE +00 
- COOOOOOE +00 
. OCOOOOOOE +00 
. COOOOOODE +00 


0. TSOOOOOCE +02 


TEMPERATURE - (OQEG-F) 


“S900 
.6959 
.6959 
.69549 
.6959 
.6959 
.6959 
.6959 
stele) 
.6959 
6959 
.6959 
.6959 


6959 


.6959 
.6959 
.6959 
.6999 
.6959 
.6959 
.6959 
.6959 
.6959 
.6959 


DEPTH OFO. 10000 OENSITY RATIO= 0O.QO0000E+00 
DEPTH DFO.90000 DENSITY RATIO= 0.59143E-01 


1.97745 (IN) 


MAY 1, 1983///2 INCH SLUG OF FIREX 23793///THREE AIR BACKUPS(@ 1.00")/// 
SAMPLE RUN OF THE AOOPTEO MOOEL FOR INCLUSION IN APPENOIX E OF THESIS 
K(V) = .150 AT LOW TEMPS/ K(V) = .025 AT HIGH TEMPS 


*****TEMPERATURES ARE IN OEGREES F.****¢ 


VL = 2.000 NP = 30 INITIAL VELOCITY = 10. INITIAL TEMPERATURE = 75.00 

EXECUTION TIME = 4.43 SEC. NO. OF PLOT POINTS = 0 

TOTAL CONVECTIVE HEAT LOAO = 0.0 BTU TOTAL REFERENCE LAMINAR CONVECTIVE HEAT LOAD = 0.0 
TOTAL RAOIANT HEAT LOAO = 2005.0 BTU TOTAL REFERENCE LAMINAR RAOIANT HEAT LOAO = 2005 .0 
TOTAL CONV + RAO HEAT LOAO = 2005.0 BTU TOTAL REFERENCE LAMINAR CONV + RAO HEAT LOAO = 2005 .O 
MAXIMUM REFERENCE CONVECTIVE HEAT RATE = 0.00 TIME OF MAX REF. CONV HEAT RATE 2 600.0 
MAXIMUM REFERENCE RAOQIANT HEAT RATE i! 10.00 TIME OF MAX REF. RAQ. HEAT RATE = 200.0 
MAXIMUM REFERENCE CONV + RAO HEAT RATE = 10.00 TIME OF MAX REF TOTAL HEAT RATE 2 200.0 
MAXIMUM CONVECTIVE HEAT RATE = 0.00 TIME OF MAX CONVECTIVE HEAT RATE 2 600.0 

MAXIMUM RAOIANT HEAT RATE = 10.00 TIME OF MAX RAOIANT HEAT RATE = 200 .O 

MAXIMUM CONV + RAO HEAT RATE = 10.0 TIME OF MAX CONV + RAO HEAT RATE = 200 .O 

TOTAL Q-HOT WALL = 0.00 TOTAL Q-RAD. = 2010.00 TOTAL Q-RERAOQ. = 145.86 

TOTAL Q-BLOCK = 0.00 TOTAL Q-SUBL. = 0.00 TOTAL Q-IN = 1864.14 

TOTAL Q-COMB. id 0.00 

MAXIMUM OEPTH OF 200.0 ISOTHERM = 0.190 TIME WHEN 200.0 ISOTHERM REACHEO MAX OEPTH = 280.0 
MAXIMUM QEPTH OF 400.0 ISOTHERM = 0.066 TIME WHEN 400.0 ISOTHERM REACHEO MAX OEPTH = 199.0 
MAXIMUM SURFACE TEMPERATURE = 724.6 TIME WHEN MAX SURFACE TEMPERATURE OCCURREO ~ 200 .O 
MAXIMUM BONOLINE TEMPERATURE = 75.0 TIME WHEN MAX BONOLINE TEMPERATURE OCCURREO = 601.0 
BONOLINE TEMPERATURE AT IMPACT sd 13.0 TIME TO IMPACT = 600 .O 


TOTAL SURFACE RECESSION = 0.000 IN 
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APPENDIX F 


FLOWCHART 








INITIALIZATION 
FOR RUN 


CALL INDAT 
READ HEADINGS, 
NAMELIST DATA 













HAS 
LAST CASE 
BEEN 
EXECUTED 
? 










NO 
INITIALIZATION 
FOR CASE 


CALL TEMPD 
TEST2 = 0., CONSTANT 
TEMP DISTRIBUTION 





CALL TURF 
CALCULATES LOCAL 
PROPERTIES AND IF 


NTURBT >0 CALCULATES 
TURBULENT HEATING 
CONDITIONS 

















DETERMINE 
TTABLE BASED 
ON THE 
MAGNITUDE 
OF THE 
CONVECTIVE 
HEATING RATES 





TTABLE INPUT 







CALL INWRIT 
WRITES NAMELIST 
DATA ANO THE 
LOCAL HEATING 
CONDITIONS 











CALL TBLST 
READ, STORE, 
ANO WRITE 


IN TABLE 
DATA 


TIMESTEP | 2 
CALCULATIONS oO 
LINEAR INTERPOLATION 
FOR LOCAL PROPERTIES 
__VSTIME 


LINEAR 
INTERPOLATION] NO 
FOR SURFACE 
TEMPERATURE 


VS TIME 


YES 
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LINEAR INTERPOLATION 
WITH TIME FOR THE 
LOCAL HEATING RATES 










LINEAR INTERPOLATION 
FOR WALL ENTHALPY VS 
WALL TEMPERATURE 


CALL OXIDAT 
COMPUTE HEAT DUE TO 
SURFACE COMBUSTION 


COMPUTE 
BLOCKING PARAMETERS 
AND ENERGY BALANCE 





CALL RECESS 
CALCULATE 
THE CHAR 

REMOVAL RATE 







CALL SUBL 
CALCULATE THE 
SURFACE RECESSION 
DUE TO 


SUBLIMATION 


SUBTRACT SURFACE 
RECESSION FROM 
ABLATOR THICKNESS AND 
DETERMINE CURRENT 
ABLATOR THICKNESS 
AND NODE LENGTH 








CALCULATES GAS 
FLOW RATE AND 
DENSITY OF EACH 


(WITHOUT COKING! 











CALL PROP 
DETERMINE THE 
THERMOPHYSICAL 










CALL COEFF 
CALCULATE COEFFICIENTS 
FOR SYSTEM OF EQUATIONS 
USED IN COMPUTING 
THE NODE TEMPERATURES 


PROPERTIES OF 
THE ABLATOR 
AND THE BACKUP 
STRUCTURE 





CALL SWUFT 
SOLVES SYSTEM OF 
EQUATIONS FOR THE 


NODE TEMPERATURES 
AT THE END OF 
THIS TIMESTEP 











NO 















YES 


CALL ABL2 
CALCULATES GAS-FLOW 
RATE AND DENSITY 
OF EACH SUBNODE 
(WITHOUT COKING) 






CALL COKE 
CALCULATES MASS 
COKING RATE IN 
EACH NODE, ADJUSTS 
GAS FLOW RATE, 
AND CALCULATES 
DENSITY WITH COKING 







CALL DPDX 
Yes | CALCULATES 
INTERNAL 
PRESSURE 
DISTRIBUTION 










CALL ISOTHM 
LINEAR INTERPOLATION 
BETWEEN NODE VALUES 
TO FIND DEPTH OF 
ISOTHERMS AND 
DENSITY RATIOS 
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CALL BET 
DETERMINES THE 
TEMPERATURE AT 





WRITE 
CASE 
SUMMARY 






EACH THERMOCOUPLE 
LOCATION BY A3 DEGREE 
CURVE FIT OF NODE 
TEMPERATURE VS DEPTH 


: Kon 
WRITE 
TIMESTEP 
OUTPUT 


T = T+TIMESTEP 













WRITE CASE 
DATA FOR 

THE RUN 
SUMMARY 






WRITE 
RUN 


SUMMARY 
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APPENDIX G 


PROGRAM LISTING 


ueSTS) 





300 


303 
304 


THIS SUBROUTINE OETERMINES THE MASS FLOW RATE FROM THE 
ABLATING NOOES 
SUBROUTINE ABLATE(XV,JENO) 


OIMENSION xv(1) 
COMMON /ABPROP/ RHO(50) 
COMMON /TEMPS/ TEMOI(200),1TX1(50),TX2(200),TX2T(10, 12), TUL1(50) 
{ , TUL2(50),TY( 200), TEMPI,TXO,SURTEM 
COMMON /ABLATS/ XMOG(50), TABL, TCHAR. RHOV.RHOC. TREC. XLOST, SOOTOS 
1 , SOOT,XMOC,XMT 
COMMON /INOIX/ NP,NP2,IFPT,NPBS,NPF,NMB 
COMMON /TIMES/ TINT,TLIM,T,OT 
COMMON /HSPARA/ OX, TL,VL,BL,OMP,VPT 
COMMON /ARRH/ THETA(50),AP,XB,SN,CA 
OO 300 I=1,.NP 
TUL1( I )=TUL2(I) 
XNP =NP 
KI=NP 
KI1=NP-1 
IF(TX2(NP).GE.TABL)TUL2(NP)=TUL1(NP)-AP*OT*EXP(-XB/TX2(NP) ) 
IF(SN.EO.1.)GO TO 303 
RHO(NP )=RHOC+(RHOV-RHOC)*((1.-SN)*TUL2(NP))**(1./(1.-SN)) 
GO TO 304 
RHO (NP )=RHOC+ (RHOV-RHOC)*EXP( TUL2(NP) ) 
CONTINUE 
THE TA(NP )=(RHO(NP )-RHOC)/(RHOV-RHOC) 
IF( THETA(NP).LE..01)RHO(NP )=RHOC 
IF(THETA(NP).GT.0.99) JENO=NP- 1 
IF(THET A(NP).GT.1.0)RHO(NP )=RHOV 
XMT=0. 
XMOG(NP )=XMT 
OO 310 I=1,KI1 
KI=NP-I 
ZKI=KI 
IF(TX2(KL).GE.TABL)GO TO 3040 
IF(SOOT.EO.0. )GO TO 3048 
TUL2(KI )=(TUL1(KI)+SOOT*OT/OX*(XNP-ZKI)/(XNP-1.) 
1*TUL2(KI+1))/(1.+SOOT*OT/OX*(XNP-ZKI)/(XNP-1.)) 
GO TO 3048 


3040 CONTINUE 


3048 


305 
307 


3075 
3076 


308 
310 


TUL2(KI )=(TUL1(KL)-AP*OT*EXP(-XB/TX2(KI )})+SOOT*OT/OX 
1*(XNP-ZKI)/(XNP-1.)*TUL2(KI+1))/(€1.+SO0T*OT/OXx* 
2(XNP-Z2KI)/(XNP-1.)) 

CONTINUE 

IF(SN.EO.1.)GO TO 305 

RHO(KI)=RHOC+(RHOV-RHOC)*((1.-SN)*TUL2(KI))**(1./(1.-SN)) 

GO TO 307 

RHO( KI) =RHOC+(RHOV-RHOC) *EXP(TUL2(KI)) 

THETA(KI )=(RHO(KI )-RHOC )/ (RHOV-RHOC) 

IF (THETA(KI).LE..01)RHO(KI )=RHOC 

IF(THETA(KI).GT.0.99) JENO=KI-1 

IF (THETA(KI).GT.1.0)RHO(KI )=RHOV 

IF(TX2(KI).LT.TABL)GO TO 308 

AVEFAC = .5 

Fa=4i0 


IF( THETA(KI) .LT.0.01) GO TO 3075 

PRCIxO1KI+i® SUT. TABL)- AVEFAC=1.0 

GO TO 3076 

F1i=0.0 

CONTINUE 

XMT =XMT +CA*OX* (AVEFAC*(RHO(KI )-RHOC)* *SN*tEXP(-XB/TX2(KI)) 
| +( 1. -AVEFAC)*(RHO(KI+1)-RHOC)**SNtEXP( -XB/TX2(KI+1))) 
2 FA 

XMOG(KI)=XMT 

CONTINUE 

RETURN 

ENO 


Tor 


THIS SUBROUTINE OETERMINES THE MASS FLOW RATE FROM THE ABLATING 
NOOES USING NOOAL SUBOIVISION TO INSURE UNIFORM GAS PROOUCTION 
THE NUMBER OF SUBOIVISIONS MUST BE AN EVEN NUMBER NOT TO EXCEEO 
TWENTY 


ALO GG 


SUBROUTINE ABL2(TUL2,TX2,NP,NPI ,RHOC,RHOV,SN,SOOT,OT,OX,AP,XB,CA, 
1XMOGI , THETI,RHOI ,MMM,OMP, TABL, TABL2,JENO, IENTER) 


OIMENSION TUL2(500).TX2(500),TUL1(500), THETA(500),RHO(500), 
1 XMO0G(500), XMOGI(50), THETI (50), RHOI(50) 
IF(NP.LE.500) GO TO 250 
WRITE( 20,200) NP 
200 FORMAT(6X14HERROR NP*MMM =15,30H, NP*MMM MUST BE LESS THAN 500) 
STOP 


250 00 300 I=1,NP 
300 TULi(I)=TUL2(I) 
IENTER=0 
XNP=NP 
KI =NP 
KI 14=NP-1 
IF(TX2(NP).GE.TABL )TUL2(NP)=TUL1(NP)-AP*OT*EXP(-xXB/TX2(NP) ) 
IF(SN.EQ.1.)GO TO 303 
RHO( NP )=RHOC+( RHOV-RHOC)*((1.-SN)*TUL2(NP))**(1./(1.-SN)) 
GO TO 304 

303 RHO(NP)=RHOC+( RHOV-RHOC) *EXP(TUL2(NP) ) 

304 CONTINUE 
THE TA(NP )=(RHO(NP )-RHOC)/(RHOV-RHOC) 
IF(THETA(NP).LE..01)RHO(NP )=RHOC 
IF(THETA(NP) .GT.1.0) RHO(NP)=RHOV 
IF(TX2(NP).GE.TABL2) IENTER=1 
XMT=O. 

XMOG(NP )=XMT 

00-310 1=1-K11 

KI=NP-I 

2KI=KI 

IF(TX2(KI).GE.TABL)GO TO 3040 

IF(SOOT.EQ.0.)GO TO 3048 

TUL2 (KI )=(TUL1(KI )+SOOT*OT/OX* (XNP-ZKI )/(XNP-1. ) 
4*TUL2(KI+1))/(1.+SO0T*OT/OX* ( XNP-2KI)/(XNP-1.)) 
GO TO 3048 

3040 CONTINUE 
TUL2(KI )=( TUL 1(KI )-AP*OT*EXP(-XB/TX2(KI ) )+SOOT *OT/Ox 

1*(XNP-2KI)/(XNP-14. )*TUL2(KI+1))/(1.+SOOT*OT/OX* 
2(XNP-2KI)/(XNP-1.)) 

3048 CONTINUE 
IF(SN.EQ.1.)GO TO 305 
RHO( KI )=RHOC+(RHOV-RHOC) *((1.-SN)*TUL2(KI))**(1./(1.-SN)) 
GO TO 307 

305 RHO(KI )=RHOC+(RHOV-RHOC) *EXP(TUL2(KI )) 

307 THETA(KI )=(RHO(KI )-RHOC)/(RHOV-RHOC) 
IF(THETA(KI).LE..01)RHO(KI )=RHOC 
IF(THETA(KI).GT.1.0)RHO(KI)=RHOV 
IF(TX2(KI).GE.TABL2) IENTER=1 
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IF(TX2(KI).LT.TABL)GO TO 308 
XMT=XMT+CA*OX/2.*((RHO(KI )-RHOC)**SNtEXP(-xXB/TX2(KI)) 
1+(RHO(KI+1)-RHOC)**SN*EXP(-XB/TX2(KI+1))) 

308 XMOG(KI)=XMT 

310 CONTINUE 
IF(OMP) 350,350,320 

320 WRITE(20,325) (TX2(1),RHO(I),XMOG(I), THETA(I),TUL2(I),TUL1(1), 
f1.0=4,NP) 

325 FORMAT(/4x,6HTX2(1),7X,6HRHO(I),7X,7HXMOG(I),5X,8HTHETA(I),6X, 
17HTUL2(1I),6X, 7HTUL1(1),7X, 1HI/6(1X,1PE12.5),16) 

350 L=1 
K=MMM/2+ 1 
00 2000 I=1.NPI 
THETI(I)=0. 
RHOI(1I)=0. 
XMDGI (I )=XMOG(L) 
00 1000 J=L,K 
THETI( I )=THETI(1I)+THETA(J) 
RHOI(1I)=RHOI(1I)+RHO(J) 

1000 CONTINUE 
THETI(I)=THETI(I)/FLOAT(K-L+1) 
IF(THETI(I).LT.0.99) JENO=I 
RHOI(1I)=RHOI(1)/FLOAT(K-L+#1) 
L=K+1 
K=L+MMM- 1 
IF(I.E0.(NPI-1)) K=NP 

2000 CONTINUE 
IF(DMP) 2050,2050,2010 

2010 WRITE(20,2020) (THETI(L),RHOI(L),XMOGI(L),L,L=1,NPI) 

2020 FORMAT(/3X,8HTHETI(L).6X, 7HRHOI(L),5X,8HXMOGI(L),7X, 1HL/ 
13(1X,1PE12.5),16) 

2050 RETURN 
ENO 
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25 


50 
a0 


60 


65 


70 


75 


80 


85 
190 


110 


115 


120 


130 


25 


SUBROUTINE ATMOS(OPTION,H,HMAX, ANS) 

OIMENSION ANS(16),A(64) 

OATA (ACI), 1=1,64)/ 2116. 1321,5918.67,2.3 76896 son oes 
32,174,518 .67,28.964,3. 737 13425 
2116.13210,539.37,2.266704E-3 lisgaeeade. 
32.09870,539.37,28.964,3 8512-7. 

2116 .65421,542.07.2. 2523266 32 ieee oe 
32.12966,542.07,28.964,3.8664E-7, 

2132 .31766,516.87, 29395336 -3. 1114-49747 
32.12966,516.87 ,28 964g 77209— 77 
2116.6542 ,529.47,2.31605E-3, 1128 -eo7eo, 
32.17366,529.47,28.964.3.79718b-7e 
2126.05228, 489 .87,2.527843E-3, 

1084 .99763,32.17366,489.87,28.964, 
3.56009E-7,2109.34460,516.87,2.37007E-3 
»1114.49727,32.21450,516.87,28.964, 
3.72693E-7,2116.654207 462-87 
2.666379E-3, 1054 .67307 ,32.21490),, 462.487, 
28 .964,3.41620E-7/ 


INTEGER OPTION 


FLTMS2=0. 
FLTM53=0. 
IF(OPTION.EO.0) OPTION=1 
IF(H-HMAX) 50,50,25 
ZERO = O. 
CALL ATMOS3(H, ZERO,ANS) 
*¥eRKRRERK ERE KK * 
K=O 
GO TO 110 
GO T0(25,55,60,65,70,75,80,85,65,65),OPTION 
K=8 
GO TO 100 
K=16 
GO TO 100 
K=24 
GO TO 100 
K=32 
GO TO 100 
K=40 
GO TO 100 
K=48 
GO TO 100 
K=56 
CALL ATSEAS(H,HMAX ,OPTION,ANS) 
eeKREKCKAREKYS 
CONTINUE 
00 115 I=9,16 
ANS(I )=ANS(I-8)*A(K+1) 
K=K+ 4 
LINEAR OEVIATION FACTOR 
ANS(3)=ANS(3)*(1.+FLTMS2) 
EXPONENTIAL OEVIATION FACTOR 
IF(FLTMS3-0.0) 125,125,130 
CONTINUE 
ANS(3)=ANS(3)*(1.4+FLTMS53 *EXP(5.614416E-6*H)) 
CONTINUE 
RETURN 
ENO 
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SUBROUTINE ATMOS3(2Z,ZMAX, ANSW) 
C 
C 
C THE PURPOSE OF ATMOS3 IS TO COMPUTE THE ATMOSPHERIC OENSITY ANO 
C SPEEO OF SOUNO AS A FUNCTION OF ALTITUOE. THE USER MAY CHOOSE THE 
STANOARO ATMOSPHERE OR ANY ONE OF 6 SUPPLEMENTAL ATMOSPHERES. 


Aaa 


OIMENSION HB(10),2B(14),TMB(24),ALP1(24),GB( 14) 

DIMENSION ANSW(16) 

OATA OUM,OUM1,OUM2 ,0UM3/28 .9644, . 10325E6,288.16,9.80665/ 

2222 

IF(ZMAX) 1010, 1010, 1000 

1000 CONTINUE 
IF(2.GT.ZMAX) GO TO 1300 
1010 2=2+*.3048006 12 

IF(2.GT.1400000.) GO TO 1300 

DATA(HB(1I),1I=1, 10)/-5000.0,0.0, 11000.0,20000.0,32000.0,47000.0, 
152000.0,61000.0, 79000 .0, 88743 .0/ 

OATA(ZB(1),1=1, 14)/90000.0, 100000.0, 110000.0, 120000.0, 150000.0, 16 
10000.0, 170000.0, 190000. 0, 230000. 0, 300000.0, 400000. 0, 500000. 0, 60000 
20.0, 700000. 0/ 

OATA(TMB(1),1=1,24)/320.65,288.15,216.65,216.65,228.65,270.65, 
1270.65,252.65, 180.65, 180.65, 180.65,210.65,260.65,360.65, 
2960.65,1110.65, 1210.65, 1350.65, 1550.65, 1830.65,2160.65, 
32420.65,2590.65,2700.65/ 

OATA(ALP1(1I),1=1,24) / 12.087778, 11.526088, 10.027120,8.6079235, 
16.7662077,4. 7086738 ,4.0775458 ,2.9019653, .37006732E-1,-1.8055744, 
2-1.8055744,-3.5040610, -4.9124564, -5.9828218,-7.5886378, -7.9035491, 
3-8.1833670, -8.6884559, -9.5726883, -10.879634,-12.421644,-13.724116, 
4-14.879663, -15.942630/ 

OATA(GB(1), 1=1, 14)/9.535,9.505,9.476,9.447,9.360,9.331,9.302, 
19.246 ,9.134,8.942,8.679,8.428,8.187,7.956/ 

1020 G =(((((-5.5905936E-33)*Z+2.972462E-26)*2-1.5167771E-19)*2+7.25394 
155E-13)*2Z-3.0854195E-6)*2+9.80665 

1030 H=((((((-9.5013649E-35*2)+6.062 1354E-28)*2-3.8667054E-21)*Z+ 
12.4656553E-14)*2-1.5731262E-7)*2+1.0)*2 

IF (2-90000.0)1035, 1035, 1150 

1035 IF (2)1050, 1040, 1080 
1040 N=2 
GO TO 1070 
1050 IF(2+5000.0) 1300, 1060, 1060 
1060 N=1 
GO TO 1110 
1070 AL=0.0 
GO TO 1120 
1080 00 1090 N=3,10 
IF(H-HB(N)) 1100, 1070, 1090 
1090 CONTINUE 
N=9 
GO TO 41070 
1100 N=N-1 
1110 AL=(TMB(N+1)-TMB(N))/(HB(N+1)-HB(N)) 
1120 TMA = TMB(N) + AL*(H - HB(N)) 
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IF(AL) 1130, 1140, 1130 
1130 ALPP=ALP1(N)-3.41631947E -2*ALOG( (AL*(H-HB(N) )+TMB(N))/TMB(N) )/AL 
GO TO 1240 
1140 ALPP=ALP1(N)-3.41631947E-2*(H-HB(N))/TMB(N) 
GO TO 1240 
1150 IF(2Z-700000.0) 1170, 1160,1160 
1160 M1=14 
N=24 
GO TO 1210 
1170 DO 1180 M1=2,14 
IF(Z-ZB(M1)) 1190, 1200, 1180 
1180 CONTINUE 
1190 M1i=M1-1 
1200 N=M1+10 
1210 AL=(TMB(N+1)-TMB(N) )/(Z8(M14+1)-ZB(M1)) 
GG=(G+GB(M1))/2.0 
TMA = TMB(N) + AL*(Z - ZB(M1)) 
IFCAL. ) 1220.1290. 1220 
1220 ALPP=ALP1(N)-3.48367635E -3*GG*ALOG((Z-ZB(M1)+TMB(N)/AL)*AL/TMB(N) ) 
17AL 
GO TO 1240 
1230 ALPP=ALP1(N)-3.48367635E -3*GG*(Z-ZB(M1))/TMB(N) 
1240 P=EXP(ALPP) 
1245 RHO = 2.84381743E-3*P/TMA 
1246 CONTINUE 
IF(Z-90000.0) 1250, 1250, 1260 
1250 WM=28.9644 
CS = .§89102444E-1*TMA**.5 
T = TMA*WM/OUM 
XMU=8 . 14785279E-2*T**1.5/(T+110.4) 
GO TO 1310 
1260 CS =.791785926 
XMU=6..7974E -1 
Z=Z2*1.£-3 
IF(Z-169.5) 1270, 1280, 1280 
1270 WM= (((((((. 10923927E -13*2-.11006185E-10)*Z2+.49584323E-8)*Z-. 13071 
1742E-5)*2Z+.22007775E-3)*2-.24083631E-1)*2+. 16586041E1)*Z2-.65156805 
2£2)*2+1139.0647 
GO TO 1290 
1280 WM= ((((((-.21764045E -18*Z+. 18921597E-14)*2Z-.43903233E-11)*Z2+.4509 
16184E-8)*Z-.239285059E-5)*2+.633911551E-3)*2Z-.115755393)*Z+36.084062 
1290 T= TMA*WM/OUM 
Z=Z2*1.£3 
GO TO 1310 
1300 T=0. 
TMA 
P=0. 
RHO 
G=0. 
WM=0.0 
cS =.791785926 
XMU=0.0 
1310 ANSW(1)=P/0UM1 
ANSW(2)=T/OUM2 
ANSW(3)=RHO 
ANSW(4)=CS 
ANSW(5 )=G/0UM3 
ANSW(6) = TMA/OUM2 
ANSW(7)=WM 
ANSW(8)=XMU 
RETURN 
ENO 
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SUBROUTINE ATSEAS(H,HMAX, JJ, ANS) 

COMMON / ATBO / DARAY (472) 

OIMENSION ANS(16),CON(13),GSLG(9) 

OIMENSION ERAOD( 10) 

DATA (ERAO(I),1=2, 10)/6339752. ,6344206. ,6344206. ,6356766., 
*6356766. ,6368186.6,6368186. ,6344206. ,6344206 ./ 

DATA (CON(I),121,13)/.3048,6356766. ,0.341624,28.964,2.2E5, 
* 4.7750E4,5.7129668,22..1.8E65,2.97791E5,9.93169355,25.9700156. 
* 110.4/,(GSLG(I),1=1,9)/99767097, .99863251, .99863256,1.0,1.0, 
* 1.0012706, 1.0012706, .99863256, .99863256/ ,HTST1/9.0E4/, 

* HST2/1.8E5/ 

CALL BOAT(JUJ- 1) 

* eK KOK eK OK 

IF(JUJ.LT.9) GO TO 5 

LROW=uJu- 1 

INOX 1=118 

INOX2=236 

INOX3=354 

INOSL2=238 

INOSL3=356 

ITOP = 118 

GO TO 901 

LROW=Ju- 1 

INOX 1=23 

INOX2=46 

INOX3=69 

INOSL2=48 

INOSL3=71 

GO TO (6,7,.7,7,8,8,7),LROW 

ITOP = 21 

GO TO 901 

ITOP = 23 

GO TO 901 

ITOP 22 

SAVE = H 

SV1 = H * 0.3048 

IF(HMAX) 10,39,10 

IF(HMAX - H) 20,39,39 
00 30 JK = 1,8 


a at 


ANS(JK) = 0.0 

ANS(4) = 0.791785926 
RETURN 

CONTINUE 


SV2=SV1+ERAO(JU) 
SV2=ERAD(JUJ)/SV2 

HG = SV2 * SVv1 * GSLG(LROW) 
ANS(5) = SV2 * SV2 

INOX = O 

00 60 JL = 1,ITOP 
IF(HG-DARAY(JL)) 50,70,60 
INOX = JL - 1 

GO TO 70 

CONTINUE 

SV2=HG-DARAY( INOX ) 

SAVE =SV2*OARAY ( INOX+INOX 1) +OARAY ( INOX+INOX2) 


Or 


80 


90 
100 


110 


120 
140 


150 


160 


IF(DARAY(INOX+INOX1)) 80,90,80 
X=ALDG(DARAY ( INDX+INOX2 )/SAVE ) 
Y=X/DARAY ( INOX+INOX1) 

GOD TO 100 
Y=-SV2/DARAY ( INDX+INDX2 ) 

Z = Y * CON(3) 
ZX=EXP(Z)*DARAY ( INDX+INOX3 ) 
ANS(1)=ZX/DARAY(INODSL3) 
ANS(3)=ANS(1)*OARAY(INOSL2)/SAVE 
ANS(6)=SAVE/DARAY(INOSL2) 
ANS(4)=SORT(ANS(6)) 

IF(HG - HTST1) 110,110, 120 
ANS(7) = CON(4) 

GO TO 160 

IF(HG - HTST2) 140, 140, 150 

X = (HG - CON(5)) / CON(6) 

Y = ATAN(X) 

ANS(7) = -(Y * CON(7)) + CON(8) 
GO TO 160 

X = (HG - CON(9)) / CON( 10) 

Y = ATAN(X) 

ANS(7) = -(Y * CON(11)) + CON( 12) 
SAVEX = ANS(7) / CON(4) * SAVE 
ANS (2 )=SAVEX/DARAY(INDSL2) 

SV2 = SORT(ANS(2)**3) 

SAVEX = SAVEX + CON(13) 

ANS(8)=( (DARAY( INDSL2 )+CON( 13) )/SAVEX) *SV2 
RETURN 

END 
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SUBROUTINE BDAT(J) 

COMMON /ATBD/ DARAY( 472) 

DIMENSION 0(472,9) 

DATA (O0(1,1),1=1,23) /-5.0E3,0.,2.25€3,2.5€6€3,1.6564,2.264,4.7E 
14,5.1&€4,5.9F4,7.9€4,8.8533E4,8.8743E4,9.8541E4,1.08129E5,1.17776E5 
2,1.46541E5,1.56071E5,1.65571E5, 1.84485E5, 1.93898E5,1.0E10,0.,0./ 

DATA (O0(1,1),1=24,46) /-.006,-.006, .0032,-.0067, .004, .0022,0.,-0 
1.002,-.0035,0.,-.01666, .00309, .00516, .01306, .02085, .01573977, .0105 
226316, .007401925, .005311803, .005336895, .005336895,0. ,0./ 

DATA (D(1,1),1247,69) /329.65,299.65,286.15,286.95, 193.15,215.10 
15,270.15,270.15,254.15,184.15,184.15, 180.65,210.65, 260.65, 360.65,9 
260.65,1110.65, 1210.65, 1350.65, 1400.65, 1400.65,0.,0./ 

DATA (D(1,1),1=70,92) /3641.9517,2116.1921, 1630. 77399, 1583.26150 
1,210.5854,83.805723,2.4434982 ,1.4734921,5.1931646E-1,2.2371584E-2, 
23.816034E-3,3.43301E-39,6.28104E-4,1.535937E-4,5.2664696E-5,1.05723 
3730E-5,7.71628440E-6,5.83290360E-6,3.51987720E-6,2.78611690E-6,2.7 
48611690E-6,0.,0./ 

Danas COUT. 2): 1=4.229)) /-5.0E3,0.,1.€3,6000.,1.56&4,1.664,2.164,3. 
12E4,4.7€4,5.1€&4,5.9F4,7.9E&4,88620. ,88743. ,98451., 108129. ,117776., 
2146541. ,156071., 165571. .184485. ,193898.,1.0E&10/ 

DATA (0(1.2),1=24,46) /-.0075,-.0075,-.0055.-.007,0., .0022, .002 
1,.0024,0.,-.002,-.0038,0., .00406, .00309, .00516, .01036, .02085, .0157 
2397691, .010526316, .007401925, .005311803, .005336895, .005336895/ 
DATA (0(1,2),1=47,69) /338.65,301.15,293.65,266. 15,203. 15,203. 1 
159,214.15,236.15,272.15,272.15,256.15,2*180. 15, 180.65, 210.65, 260.65 
2,360.65,960.65,1110.65, 1210.65, 1350.65, 2*1400.65/ 

DATA (O(1,2),1=70,92) /36114270.5E-4,21166542. 1E-4, 18888658 .80 
1E-4, 10275849. 7E-4,2750501.8E-4,232487.4E-3, 1025057 .9E-4, 192883. 9E- 
24,2559407.7E-6, 15490525 .5E-7,5.5026744E -1,2.324445E-2,3.7498299E -3 
3,3.43301E-3,6.28104E-4,1.535937E-4,5.2664696E-5, 1.0572373E-5,7.716 
42844E-6,5.8329036E-6,3.5198772E-6,2.7861169E-6,2.7861169E-6 / 

DATA (0(1,3),1=1,23) /-5.€3,0.,2.€3,1.26&4,1.764,1.864,2.2€4, 
13.2E4,4.7E64,5.1E4,5.9E4,7.9F4,8.862E4,88743. ,98451. , 108129. , 117776 
2.,146541. , 156071. , 165571. , 184485. , 193898. ,1.E10/ 

DATA (D(1I,3),1=24,46) /2*-.003,-.0065, -.0026,0., .0025, .002, 
1.0024,0.,-.002,-.0031,0., -.0853658, .00309, .00516, .01036, .02085, 
2.01573977, .010526316, .007401925, .005311803, 2% .005336895/ 

DATA (O(1,3),1=47,69) /302.15,287.15,281.15,216.15,2*203. 15, 
1213.15,233.15,2*269.15,259.15,2*191.15,180.65,210.65, 260.65, 360.65 
2,960.65,1110.65, 1210.65, 1350.65, 1400.65,0./ 

DATA (0(1,3),1=70,92) /3803 .55380284 ,2132.31766, 1678 .056725, 
1421.66007, 186.6394, 157.7497,81.80707, 17.678814,2.289787,1.378112, 
2.48377087, .02188288 ,3.9208748E-3,3.43301E-3,6.28104E-4,1.535937E-4 
3,5.2664696E-5,1.0572373E-5,7.7162844E-6,5.8929036E-6,3.5198772E-6, 
42*2.7861169E-6/ 

DATA (O0(1,4),1=1,23) /-5.0€3,0.,2.0E3,6.0€3,1.364,1.7&4,2.7E4, 
13.26&4,4.764,5.264,6.2E4,7.964,88743. ,89229. ,98451.,108129.,117776. 
2,146541. ,156071., 165571., 184485. , 193898. ,1.0&10/ 

DATA (D(1I,4),1=24,46) /2*-.0045,-.006,-.0065,0.,.0012, .0021, 
1.0025,0.,-.0025,-.0045,0., .01646,3.09E-3,5.16&-3,1.036E-2,2.085E-2 
2,1.5739769E-2, .010526316,7.401925E-3,5.311803E-3,2*5 .336895E -3/ 
DATA (D(1,4),1=47,69) /316.65,294.15,285.15,261.15,2*215.65, 
1227 .65,238.15,2*275.65, 250.65, 2*174. 15, 182. 15,210.65, 260.65,360.65 
2,1.5739769E-2, .01052632,7.401925E-3,5.311803E-3,2*5.336895E-3/ 

DATA (D(1I,4),1=70,92) /3701.5408 ,2116.6542, 1672.9609, 1015.51367 
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15,371.34907, 197.05247. 42. 172273, 20. 250961.2. 7452807, 1.477272 
2 4.02905703E-1,2.53852313E-2,3.75400685E-3,3. 13269E-3,6.28104E-4 
3,1.535937E-4,5.2664696E-5, 1.0572373E-5,.7.7162844E-6,5.8329036E-6, 
43.5198772E-6,2*2.7861169E-6/ 

DATA (D(1I,5),1=1,23) /-5.0E3,0. ,3.0E3,1.0£4,1.9EF4,2.7E4,3.2E4, 
14.7E4,5.2£4,6.464,7.9£4,88743. ,89229. ,98451., 108129.,117776. , 14654 
21.,156071.,165571., 184485. , 193898. ,1.0£10,0./ 

DATA (0(1,5),1=24,46) / -.0035,-.0035, 

X-.006,-.0005,0.,.0008, .0031,0., 

1-.002,-.0021,0.,-.05864,3.09E-3,5.16E-3,1.036E-2,2.085E-2, .0157397 
269,1.0526316E-2,7.401925E-3,5.311803E-3,2°5.336895E-3,0./ 

DATA (D(1I,5),1=47,69) /289.65,272.15,261.65,219.65,2*215.15, 

1219. 15,2*265.65,241.65,2*210. 15, 182.15,210.65, 260.65, 360.65, 960.65 
2,1110.65, 1210.65, 1350.65,2*1400.65,0./ 

DATA (D0(1,5),1=70,92) /3907. 16954,2126 .05228, 1448. 7020482 ,535.0 
163452,130.06511188,36.51463464, 16.627483136, 1.994688146, 1.0486 1576 
26,2.08052385E-1,2.144639574E-2,4.400385E-3,3.13269E-3,6.28104E-4, 
31.535937E-4,5.2664696E-5,1.0572373E-5,7.7162844E-6,5.8329036E-6, 
43.5198772E-6,2*2.7861169E-6,0./ 

DATA (D(1I,6).1=1,23)/-5.0E+3,0.,5.0E3. 1.064,2.3£4,3. 264.4) 3Ea. 
14.8E4,5.3E64,5.9E64,7.9E4, 88858. ,89229. ,98451., 108129. ,117776., 14654 
21.,156071.,165571.,184485. ,193898.,1.0E10.0./ 

DATA (0(1,6),1=24,46)/2*-.0054, -.0070,0., .0015, .0030, .0011,0., 

1- .0020,- .0047,0. , .02965, .00309, .00516, -01036, .02085, .15739769E-1, 
2.10526316E-1,.7401925E-2, .5311803E-2,2* .5336895E-2,0./ 

DATA (0(1,6),1=47,69)/314.15,287.15,260. 15,2*225. 15,238.65, 
1271.65,2*277. 15,265. 15,2*171.15, 182. 15,210.65, 260.65 ,360.65,960.65 
2,1110.65, 1210.65, 1350.65,2*1400.65,0./ 

DATA (D0(1,6),1=70,92) /3279.7498 ,2109.3446, 1130.984628,558.8301 
13,77.796958, 20.6513190,4.7249319,2.5353904, 1.368881107, 642681796, 
2.0266738111,3.7281099E-3,3.13269E-3,6.28104E-4,1.535937E-4,5.26646 
396E-5,1.0572373E-5,7.7162844E-6 ,5.8329036E-6,3.5198772E-6,2*2. 7861 
4169E-6,.0./ 

DATA (0(1,7),1=1.23) /-5.0E3.0.,1.£3,3.5E3,8.5E3,1.5£4,2.5E4, 
13.4E£4,5.£4,5.4E64,5.9£4,6.9E4,88858. ,89229. ,98451.,108129.,117776., 
2146541. , 156071. , 165571. , 184485. , 193898. ,1.£10/ 

DATA (0(1,7),1=224,46) / 2*.002,-.0032,-.0068,0.,-.0006, .001, .002 
15,0. ,-.0018,-.0005, -.0014, -.09757, .00309, .00516, .01036, .02085, 
2.157397691E-1, .10526316E-1, .7401925E-2, .5311803E-2,2*.5336895E-2/ 

DATS (D(1,7),1=47,69) /247. 15,257. 15,259. 15,251.15,2*217.15, 
1211.15,220.15,2*260. 15,251.15,246. 15,218.3488, 182.15,210.65, 260.65 
2,360.65,960.65,1110.65, 1210.65, 1350.65,2*1400.65/ 

DATA (D(1I,7),1=70,92)/4171.3757 ,2116.6542, 1854.4271,1327.0701, 
1639 .0688 ,229.8350, 46.6186, 11. 2008286, 1. 14403750, .6765775, . 34680966 
28, .0877758853,4.7124E-3,3.13269E-3,6.28104E-4, 1.535937E-4,5.266469 
36E-5,1.0572373E-5,7.7162844E-6,5.8329036E-6,3.5198772E-6,2*2. 78611 
469E -6/ 

DATA (0(1,8),1=1,118) /-5.E3,0.,.7979. ,8975. ,9971. , 10966. , 11961 
1.,12956. , 13950. , 14944. , 15938. , 16931.,17925.,18917., 19910. ,20902., 
221894. 22886. ,23877. ,24868. , 25858. ,26849. ,27839. , 28829. ,29818., 
330807. .31796. ,32784. ,33773. ,34760. ,35748. ,36735. ,37722. .38709., 
439695. ,40681. ,41667. ,42652. ,43637. ,44622. ,45606. ,46591. ,47574., 
548558. ,49541. ,50524. ,5 1507. ,52489. ,53471. ,54453. ,55434. ,56415., 
657396. ,58376. ,59357. ,60336. ,61316. ,62295. ,63274. ,64253. ,65231., 
766209. .67187. ,68164. ,69141.,70118. ,71095. , 72071. , 73047. .74022., 
874998. ,75973. ,76947. ,77922. ,78896. ,79869. ,80843. ,81816. , 82789. ,837 
962. ,84734.,85706. ,86677. ,87649. , 88620. ,89590. ,90561. ,91531. ,92501. 
A,93470. ,94440. ,95409. ,96377. ,97346. ,98314. ,99281., 100249. ,101216., 
B102183.,103149. , 104115. , 105081. , 106047. , 107012. , 107977. , 108942. ,10 
C9907. ,110871.,111835.,112798. ,113761.,114724., 115687. ,116649. ,1176 
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D11.,118573.,119535.,1.0E10/ 

DATA (D(I,8),1=119,236) /2*-.003,-8.338E-3,-9.075E-3, -9.608E-3 
1,-3.326E-3,-3.622E-3,-3.295E-3,-3.372E-3,-3.681E-3,-3.114E-3,3.28E 
2-4,1.992E-3,4.317E-3,4.585E-3,4.618E-3,4.041E-3.3.2466-3,3.431E-3, 
31.436E-3,1.26E-3,1.54E-3,1.135E-3,9.08E-4,4.06E-4,1.035E-3,1.639E- 
43,1.759E-3,1.335E-3,1.809E-3,3.328E-3,2.917E-3,2.677E-3,2.894E-3, 
53.156€-3,2.9416-3,2.951E-3,2.704E-3,2.677E-3,2.909E-3,2.386E-3,4.38 
6E-4,-5.83E-4,-6.54E-4,-7.35E-4, -5.68E-4,-1.814E-3,-2.714E-3, -2.795 
7E-3,-2.887E-3,-2.016E-4,-1.778E-3,-1.996E-3,-1.758E-3,-1.49E-3, -2. 
8513E-3,-3.385E-3,-3.784E-3,-3.759E-3,-3.958E-3,-3.952E-3, -3.946E-3 
9,-3.938E-3,-3.928E-3,-3.917E-3, -3.904E-3, -3.889E-3,-4.07E-3,-3.879 
AE-3,-4.051E-3,-4.054E-3,-4.243E-3,-4.094E-3,-4.08E-3,-3.17E-4,-3.8 
BE-4,-4.55E-4,-5.46E-4,-6.55E-4,-1.131E6-3,-4.94E-4,-5.946-4,-7.14E- 
C4,-8.47E-4,1.914E-3,2.41E-3,2.1316-3,2.7E-3,2.87E-3,2.705E-3,3.082 
DE-3,2.96E-3,3.211E-3,3.531E-3,5.678E-3,5.913E-3,5.956E-3,6.947E-3, 
E6.172E-3,6.697E-3,5.989E-3,6.176E-3,5.824E-3,5.696E-3,1.0344E-2, 1. 
FO349E-2,1.0355E-2,1.036E-2,1.0364E-2,1.0369E-2,1.0373E-2,1.0377E-2 
G,1.0381E-2,1.0405E-2,2.0765E-2, .020776, .00352, .005336895/ 

DATA (D(1I,8),1=237,354) /302.15,287.15,249.37,241.06, 232.03,22 
12.46,219.15,215.55,212.28,208.92,205.27,202. 17,202.50, 204.48, 208.7 
96. 21deot. 217.89. 221.9.295. 11,228 51,229.94, 231.94,232.71,.233.83,23 
34.73,235.13,236.16,237.78,239.51,240.83, 242.62, 245.91,248.78,251.4 
$3 ,254.28,257.39,260.29,263.19,265.86,268.49,271.36,273.7,274.14,27 
53.56,272.96,272.2 ,271.64,269 . 86, 267.19,264.45,261.61,259.64,257.8 
69 ,.255.94,254 .21,252.75,250.29, 246.98 ,243.27,239.57,235.72,231.85, 
7228. .224.15.220.31,216.48,212.67,208.87,204.9,201.12,197.17, 193.21 
8,189.08, 185.09, 181.12,180.81, 180.44, 179.99, 179.46,178.83,177.73,17 
97.25,176.67,175.98,175.17,177.014, 179.35, 181.85, 184.039, 186.845, 18 
AQ. 407, 192.462, 195.314, 198.378,201.815,207.304,213.076,218.793,225. 
B523,231.48,237.914,243.74,249.713,255.329, 260. 808 ,270. 845,280. 769, 
C290.792,300.789,310.79,320.776,330. 756,340. 731,350.699,360.693, 
D380.646 , 400.598, 1400. 65/ 

DATA (D(1I,8),1=355,472) / 1821.348,1013.25,389.9,339.4,293.9,25 
13. ,216.8,185.4,158.1,134.6,114.2,96.62,81.67,69.1,58.61,49.88,42.6 
OA 696) 5191960072029 -29.20..1.17.37515202,19., 11.26,9.75,8.452,7.33 
35,.6.372.5.54,4.824,4.208,3.677,3.217,2.819,2.475,2.176,1.915, 1.688 
4,1.49,1.317,1.165,1.03, .9107, .805, .7114, .6283, .5545, .4887, .4301, 
5.3782, .3322,.2915, .2556, .2239, .196, .1713,.1494,.1301,.113, .09793, 
6.08467, .07303, .06283, .05392, .04614, .03938, .03351, .02843, .02404, .02 
7026, .01702, .01424, .01187, .00987, .008206, .00682, .005665, .004704, .00 
83902, .003235, .00268, .002219, .001836, .00152, .001261. .001048, .000874 
9, .0007306, .0006123, .0005 146, .0004336, .0003663, .0003103, .0002639, 
A.0002254, .0001933, .0001665, .000144, .0001251, .000109,9.534E-5,8.364 
BE-5,7.359E-5,6.449E-5,5.765E-5,5.136E-5,4.593E-5,4.124E-5,3.715E-5 
C,3.357E-5,3.043E-5,2.767E-5,2.522E-5,2.308E-5,2.121E-5,2.7861169E - 
D6/ 

DATA (D0(1,9),1=1,118) /-5.E&3,0.,7979. ,8975. ,9971. , 10966. , 11961 
1.,12956., 13950. , 14944. , 15938. , 16931., 17925. , 18917., 19910. ,20902., 
221894. ,22886.,23877. ,24868. ,25858. ,26749. ,27839. ,28829. ,29818. ,308 
BO7 #91796... 32784..3939733..34760. ,35748. , 36735. ,37722. ,38709.., 39695. 
4,40861., 41667. , 42652. ,43637. ,44622. ,45606. ,46591. ,47574. , 48558. ,49 
5541. ,.50524. ,51507. ,52489. ,53471. ,54453. ,55434. ,56415. ,57396. ,58376 
6. ,59357. ,60336.,61316. ,62295. ,63274. ,64253. ,65231.,66209.,67187., 
768164. ,69141. , 70118. , 71095. , 72071. , 73047. , 74022. , 74998. ,75973.,769 
847. ,77942.,78896. ,79869. , 80843. ,81816.,82789. ,83762. ,84734. ,85706. 
9, 86677. ,87649. ,88620. ,89590. ,90561. ,91531. ,92501. ,93470. , 94440. ,95 
A409. .96377. .97346. ,98314. ,99281., 100249. , 101216. , 102183, 103149., 
B104115., 105081. , 106047. , 107012. , 107977. , 108942. , 109907. ,110871.,11 
€1835..112798.,.113761.,114724. , 115687. , 116649. , 117611. , 118573. , 1195 
D35.,1.0&10/ 


201 


JO 


DATA (D(1I,9),1=119,236) /2*-.003, -.007918,-.007799,-.007461 ,-. 
1001327 ,-9.52E-4,-.001113,-8.42E-4,-7.56E-4,-8.85E-4,-.001096, -9.85 
2E-4,-6.96E-4,7.7E-5,4.62E-4,6.31E-4,5.99E-4, .001046, .001596,1.77E- 
33, .001976, .002221, .002781, .003463, .003142, .005101, .005631, .005588, 
4.005807, .009095, .002720, .001692, .001839, .0013950,4.72E-4,4.63E-4,7. 
5756-4,1.646-4,-5.18E-4, .001249,-4.25E-4,-8.73E-4,-6.72E-4,-4.41E-4 
6,1.46E6-4,-6.17E-4,-.001655, -.001622, -6.05E-4,-.001071, -6. 19E-4,-7. 
762E-4,-9.28E-4,-4.49E-4, -.001409, - .0029365, - .0021639, - .002263, -.0027 
805, - .002864, - .0090934, - .002891, -.002722, - .003160, - .003323, -.003186, 
9- .0039629, -.002921, -.004165, -.009532,-.004214,-.004144,-.004296,-6. 
A4E-5,-3.066-4,-3.394E-4,-6.15E-4,-4.59E-4,-5.11E-4,1.392E-4,-5.38E-4 
B,-6.14E-4,-6.99E-4, .002792, .002947, .002885, .002577, .002446, .002529 
C, .002396, .002005, .002498, .002380, .004293, .0046, .004734,.5.16E-3, .00 
05162, .005164, .005166, .005168,5.17E-3, .005201, .010344, .010349, .0103 
E55, .010360, .010364, .010369, .010373, .010377, .010381, .010405, .020765 
F, .020776, .003352, .005336895/ 

DATA (0(1,9),1=237,354) /302.15.287.15.237 .01, 229. 14,221.36 aon 
19.94,212.62,211.67,210.56,209.73,208.97,208.1,207.07,206.09,205.4, 
2205.47,205.93,206.56,207. 15,208. 19,209.77,211.52,219.48,215.68,218 
9.439,221.85,224.96,290. ,295.57,241.09,246.82,249.82,252.5,254. 17,25 
45.99,257.32,257.78,258.24,259. ,.259.16,258.65,259.88,259.46,258.61, 
5257 .95,257.51,257.65, 257.05, 255. 42,259.89, 259.24,252.19,251.58,250 
6.83,249.92,249.48,248.10,245.79,243.67,241.45,238.81,236. ,233.04, 
7290.21,227.55, 224.47, 221.22.218.11.214.57.211.72.207 66. 20422 ln260 
8.1,196.07,191.88, 191.82,191.52, 191.2, 190.6, 190. 16, 189.66, 189.79, 18 
99.27,188.67, 188.026, 190.886, 199.557, 196.327, 198. 866, 201.267 ,2093.65 
AQ, 206.0539, 207.968,210.355,212.677,216.819, 221.324,225.851,230.857, 
B234.832,240.778,245.82,250.826, 255.815, 260. 808,270. 845,280. 769,290 
C.792,300.789,310.79,320.776,330. 756,340. 731,350.699,360.693 380.64 
D6 , 400.598, 1400.65/ 

DATA (0(1,9),.1=355, 472) /1821.3378,10139.25,3.484E2,3.0011E2 ,2.5 
188E2,2.213962,1.887E2,1.607E2,1.368E2,1.163E2,98 .86,839.98,71.29,60. 
248 ,51.27,49.45,36 .84,31.25,26.52,22.52,19.14,16.3,19.89,11.86,10. 1 
35,8.699,7.475,6.441,5.569,4.8392,4.206,3.671,3.209,2.809,2.46,2.157 
4,1.899,1.661,1.458,1.28,1.124, .9869, .8669, .7613, .6683, .5866, .5148, 
5.4518, .39969, .39473, .3042, .2664, .23391, .204,.1784, .156,.1969,.1191,.1 
638, .09044, .07867, .06833, .05925, .05128, .04431, .03822, .0929, .02826, 
7.02422, .02071, .01766, .01502, .01273, .01076, .009062, .007616, .0064, .0 
805377, .004515, .009791, .003181, .002669, .002239, .001878, .001574, .001 
932, .00111, .0009361, .0007912, .0006702, .0005688, .0004837, .0004121, .0 
A003516, .0003006, .0002576, .0002214, .0001909, .0001651, .0001433, .0001 
B247, .0001089,9.529E-5,8.363E-5,7.359E-5,6.499E-5,5.765E-5,5.136E-5 
C,4.599E-5,4.124E-5,3.715€-5,39.3957E-5,3.049E-5,2.767E-5,2.522E-5,2. 
D308E-5,2.121E6-5,2.7861169E-6/ 

N=92 

IF(J.GT.7) N=472 

DD 30 I=1,N 

DARAY(I)=D(I,ud) 

RETURN 

END 
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SUBROUTINE BET(XTCL,TTCL,NXTCL,XV,TX2,NP,XLSTV, IBGN) 
DIMENSION XTCL(1),TTCL(1),7X2(1),xV(1) 
IBGN=1 

DD 100 IT=1,NXTCL 
IF(XTCL(I).LT.XLSTV)IBGN=I +1 

CONT INUE 

DO 200 I=IBGN,NXTCL 

X=XTCL(I)-XLSTV 

CALL DISCIS (%, xv 1X2. NP. TICLO)) 
XxXKRKREXKK KEK 

CONTINUE 

RETURN 

ENO 
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THIS SUBROUTINE OETERMINES THE COEFFICIENTS OF THE MATRIX 
SUBROUTINE COEFF(NPFT,XMSG,RHO7, TABL2,0EN) 


OIMENSION CP(50), YK(50),CPGAS(50),HV(50) 
OIMENSION RHO7(50),XMSG(50) 
OIMENSION OEN(SO) 


COMMON/YYZY/ OSIC(50),RHOCF ,SN2,XB2,CA2,HV2 

COMMON /ABPROP/ RHO(50) 

COMMON /BACKUP/ XNPM(12),RHOBX(12),xXBM(12),EMBB(12),EMFB(12) 

1 . NKPB(12),NCPB(12),TXK(20, 12),XK(20, 12),TCP(20, 12) ,NPM( 12) 
2 » CPX(20,12),GAPX( 12), FTEST(12),BTEST(12),H(12),XKB(10, 12) 
3 . CPB(10, 12),0xXB(12) 

COMMON /TEMPS/ TEMOI(200),1TX1(50),TX2(200),TX2T( 10, 12), TUL1(50) 


1 , TUL2(50),TY( 200), TEMPI,TXO,SURTEM 

COMMON /COEFFS/ A(200),B8(200),C(200),0(200),AB( 10, 12),BB( 10, 12) 
1 , CB( 10, 12),0B(10, 12),S8(10, 12),RB1( 10, 12),RB2(10, 12),R(50) 
2 , $(50), INT 

COMMON /ABLATS/ XMOG(50),TABL, TCHAR, RHOV,RHOC,TREC,XLOST,SDOTODS 
1 SDOT , XMOC, XMT 


COMMON /INOIX/ NP,NP2,IFPT,NPBS,NPF,NMB 

COMMON /TIMES/ TINT,TLIM,T,OT 

COMMON /FNTBCK/ FBLOW,EMV,EMC,H300,TEST2, TENV,OIN,HENV, FENV 

1 , OLOSS,OHC,HXX(12),HX(50),TW(50) 

COMMON /HSPARA/ Dx, TL,VL,BL,OMP,VPT 

COMMON /TRAU/ TIME(300),QCONC(300),ORA0(300).VEL(300), ALT(300) 
1 , QCON(300),NTRAPT,FCONV, FRAO 

COMMON /ARRH/ THETA(50),AP,XB,SN,CA 

COMMON/TABS/ TNOOE(5O),OCHAR(S5O), I TABLE(9, 10), ITAB(9,6) 


1 . TABLES(500), ICHAR1, ICHAR2, ICHAR3, IREAC1, IREAC2 
2 . IVIRG1, IVIRG2, TREAO, TERROR, ITABNO, AINPUT(9),W(50) 
3 . ISTART, IENO,ANSWR(350) 


EQUIVALENCE (ANSWR(1),CP(1)), (ANSWR(51),YK(1)), CANSWR(201),CPGAS(1 
1)), CANSWR(251),HV(1)), CANSWR(301),HSUB ) 


CALL PROP(NTERR) 


een 


weweeeeeeeeeeeeeeeeereeeereeeeeeeeeeeweeeerewzeereeseeeee eer ewnweweeewerkwereeeweereeswewew ee = 


WRITE(20,3) 
3 FORMAT(’ PROP CALLEO’//) 
IF(NTERR.EQ.1) RETURN 
XFG120. 
XFG2=1. 
XIFG3=1. 
XFG7=1. 
IF(TX2(1).LT.TABL)XFG2=0. 
YNP=NP 
SCINT )=(OENCINT) *OX*CPCINT) )/(2. *OT) 
RCINT)=(1.0)/€(0X/2.0)*(€(1.0/YKCINT ) )+(1.0/YKCINT+1)))) 
IF(QCON(1).LT.O0.)GO TO 5 
AC INT )=0.0 
BC INT )=-(S(1)4+R(1)) 
CCINT)=R(1) 
OC INT )=-QIN-S(1)*TX2(1)+(XMOG(1)-XMOG(2))*HV(1)/2.*XFG1+XFG2*CA* 
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10X/2. *HV(1)*(RHO( 1)-RHDC)**SN*EXP(-xXB/TX2(1))*XIFG3+XMOG( 1) * 

2CPGAS(1)/2.*QIN/YK(1)*DX+OEN(1)*CP(1)*SDOT*QIN/2./YK( 1) *Ox 

IF(TX2(1).LT.TABL2) XFG7=0. 

OSIC( INT) =(XMSG(1)-XMSG(2))*HV2/2.*XFG7 

D( INT )=O( INT )+OSICCINT) 

XFG7=1. 
4 XEG2=1) 

UNT=INT+1 

GO TD 6 
5 A(INT)=0. 

BC INT)=0. 

CC INT )=0. 

D(INT)=0. 

$(2)=(DEN(2)*D0X*CP(2))/DT 

R(2)=1./((0X/(2. *Y¥K(2)) )+(DX/(2. *¥K(3)))) 

A(2)=0. 

B(2)=-(R(1)+R(2)+S(2)+XMDG(2)*CPGAS(2)) 

C(2)=R(2)+XMOG(2)*CPGAS(2) 

IF (TX2(2).LT. TABL )XFG2=0. 

D(2)=-S(2)*TX2(2)-SURTEM*R( 1)+XFG2*CA*DX *HV(2) *(RHD(2)-RHOC)**SN 

1*EXP(-xXB/TX2(2))*XIFG3 
601 XFG2=1. 

JUNT=INT+2 
6 CONTINUE 

NPP=NP- 1 

XFG2=1. 

DD 10 I=JNT,NPP 

Xr] 

S(1)=(OEN(L)*0X*CP(1I))/OT 

R(1I)=(1.0)/((0X/(2.0*YK(1)) )+(DX/(2.0*YK(I+1)))) 


A(I)=R(1I-1) 
B(1)=-(R(1I-1)+R(1)+S(1)+XMDG( I) *CPGAS(1I)+DEN(1I)*CP(I) 
1 *SDOT*(YNP-XI)/(YNP-1.)) 


C(1I)=R(1)+XMDG(1I)*CPGAS(I)+DEN(1)*CP(1I)*SOOT*(YNP-XI)/(YNP-1. ) 
IF(TX2(1).LT.TABL)XFG2=0. 
D(1)=-S(1I)*TX2(1)+(XMDG(1I)-XMDG(I+1))*HV(I)*XFG1+XFG2*XIFG3*CA* 
1HV(I)*(RHO( I )-RHOC)**SN*EXP(-XB/TX2(I))*DX 
IF(TX2(1).LT.TABL2) XFG7=0. 
OSIC(I )=(XMSG(I)-XMSG(I+1))*HV2*XFG7 
D(I1)=0(1)+QSIC(I) 
XFG7=1. 
9 XFG2=4. 

10 CONTINUE 
R(NP)=(1.0)/((0xXB(1) /(2.0*XKB(1,1)))+(O0xB(1) /(2.0*xXKB(2,1)))) 
S(NP )=(DEN(NP)*DX*CP(NP )+RHDBX(1)*CPB(1,1)*DXB(1))/(2. *DT) 
A(NP )=R(NP- 1) 
B(NP)=(-( R(NP-1)+R(NP)+S(NP) )) 
C(NP )=R(NP) 
IF(TX2(NP).LT.TABL)XFG2=0. 
D(NP )=(-S(NP)*TX2(NP) )+XMDG(NP) *HV(NP ) *XFG14+XFG2*CA *HV(NP)/2. * 
1(RHO(NP )-RHOC)* *SN*EXP( -XB/TX2(NP))*DX*XIFG3 
IF(TX2(NP).LT.TABL2) XFG7=0. 
OSIC(NP)=XMSG(NP)*HV2/2. *XFG7 
D(NP)=D(NP)+QSIC(NP ) 

19 DD 200 I=1,NMB 

IF(I-1) 20,20,30 

20 AB(1,1)=A(NP) 
BB(1,1)=B(NP) 
CB(1,1)=C(NP) 
0B(1,1)=D0( NP) 


Z10e 


GO TO 65 
30 L=NPM(I-1) 
IF(FTEST(1)) 45,40, 45 
40 $B(1,1)=(RHOBX(1)*CPB(1,1)*0xXB(1)+RHOBX(1-1)*CPB(L,I-1)*OxB(1I-1))/ 
1(2.0*0T) 
RB1(1,1)=(1.0)/((OxB(1-1)/(2.0*XKB(L,1-1)))}+(OXB(I-1)/(2.0*XKB(L-1 
1,1-1)))) 
RB2(1,1)=(1.0)/((0XB(1)/(2.0*XKB(1,1)))+(OXB(1)/(2.0*XKB(2,1)))) 
AB(1,1)=RB1(1,1) 
BB(1,1)=(-(RB1(1,1)+RB2(1,1)+S5B(1,1))) 
CB(1,1)=RB2(1,1) 
0B(1,1)=(-(SB(1,1)*Tx2T(1,1))) 
GO TO 65 
45 IF(FTEST(I)) 50,40,55 
50 G=(1.739E-09)/(1.0/EMBB(1-1)+1.0/EMFB(1)-1.0) 
GD TOD 60 
55 G=0.0 
60 SB(1,1)=(RHOBX(1)*CPB(1,1)*O0xB(1))/(2.0*0T) 
RB2(1,1)=(1.0)/((OxXB(1)/(2.0*xXKB(1,1)))+(OXB(1I)/(2.0*XKB(2,1)))) 
AB(1,1)=H(1-1)+4.0*G*(TX2T(L,1-1)**3) 
BB( 1,1 )=(-CHCI-1)4+4.0*G*(TX2T(1,1  )**3)4+RB2(1,1)+S8(1,1))) 
CB(1,1)=RB2(1,1) 
0B(1,1)=3.0*G*((TX2T(L,1-1)**4)-(TX2T(1,1)**4))-SB( 1,1) *TX2T(1,1) 
65 LF=NPM(1)-1 
DO 100 J=2,LF 
SB(J,1)=(RHOBX(1)*CPB(J,1)*OxB(1))/OT 
RB1(JU,1)=(1.0)/((OxB(1)/(2.0*XKB(JU-1,1)))+(OxXB(1)/(2.0*XKB(J,1))) 
RB2(JU,1)=(1.0)/((OxB(L)/(2.0*XKB(J+1,1)))+(OXB(1)/(2.0*XKB(U,1)}) 
AB(J,1)=RB1(J,1) 
BB(J,1)=(-(RB1(J, 1 )+RB2(JU,1)+SB(U,1))) 
CB(J,1)=RB2(JU,1) 
OB(J.1)=(-(SB(JU,1)*Tx2T(J,1))) 
100 CONTINUE 
IF(I-NMB) 110,250,250 
110 LNF=NPM(I) 
IF(BTEST(1)) 120,115,120 
115 SB(LNF,1)=(RHDOBX(1)*CPB(LNF,1)*OXB(I )+RHOBX(1+1)*CPB(1,1+1)*OxXB(I+ 
11))/(2.0*0T) 
RB1(LNF,1)=(1.0)/((OXB(1)}/(2.0*XKB(LNF-1,1)))}+(OXB(1I)/(2.0*XKB(LNF 
1,1) )9) 
RB2(LNF,I)=(1.0)/((O0xB(1+1)/(2.0*XKB(1,1+1)))+(OxB(I+1)/ 
1(2.0*XKB(2,1+1)))) 
AB(LNF,1)=RB1(LNF,I) 
BB(LNF,1)=(-(RB1(UNF,1)+RB2(LNF,1I)+SB(LNF,1))) 
CB(LNF,1)=RB2(LNF,1) 
OB(LNF,1)=(-(SB(LNF.1)*TX2T(LNF,1))) 
GD TO 200 
120 IF(BTEST(I)) 125,115,127 
125 G=(1.73€-09)/(1.0/EMBB(1)+1.0/EMFB(1+1)-1.0) 
GD TO 130 
127 -G-0-0 
130 SB(LNF,1)=(RHOBX(1)*CPB(LNF,1)*O0xXB(1))/(2.0*0T ) 
RB1(ULNF,1)=(1.0)/((0XB(1)/(2.0*XKB(LNF-1,1)))+(O0xXB(1)/(2.0*XKB(LNF 
1,1)))) 
AB(LNF,1I)=RB1(LNF,I1) 
BB(LNF,1)=(-(RB1I(LNF,1)+H(1)+SBC(LNF,1)+4.0*G*(TX2T(LNF,I)**3))) 
CB(LNF,1)=H(1)+4.0*G*(TX2T(1,1+1)**39) 
OB(LNF,1I)=3.0*G*((TX2T(1,14+1)**4)-( TX2T(LNF,1)**4))-SB(LNF,I)*TX2T 
1(LNF,I) 
200 CONTINUE 


) 
) 
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250 MN=NPM(NMB ) 
IF(QLOSS) 270,260,270 
260 SB(MN,NMB )=(RHOBX(NMB )*CPB(MN,NMB) *OXB(NMB))/(2.0*DT) 
RB1(MN,NMB )=(1.0)/( (DXB(NMB)/(2. *XKB(MN-1,NMB)))+(0XB(NMB)/(2.0*XK 
1B(MN,NMB)))) 
AB(MN.NMB )=RB1(MN,NMB) 
BB(MN,NMB )=(-(RB1(MN,NMB )+SB(MN, NMB ) ) ) 
CB(MN,NMB)=0.0 
DB(MN,NMB )=(-(SB(MN,NMB)*TX27T(MN,NMB))) 
GD TD 280 
270 S8(MN,NMB )=(RHOB8X (NMB )*CPB(MN,NMB )*DXB(NMB))/(2.0*DT) 
RB1(MN,NMB )=(1.0)/((DXB(NMB)/(2.0*XKB(MN- 1,NMB )) )+(D0XB(NMB)/(2.0*X 
1KB(MN,NMB)))) 
AB(MN,NMB)=RB1(MN,NMB) 
B88 (MN,NMB )=(-(RB1(MN,NMB)+HENV+(1.73E-09) *FENV*4.O*( TX2T(MN, NMB)** 
13)+SB(MN,NMB))) 
CB(MN,NMB)=0.0 
DB(MN,NMB )=(- (HENV* TENV+FENV*(1.73E-09)*((TENV**4)+3.0*(TX2T(MN,NM 
1B )**4))+SB (MN, NMB )*TX27T(MN,NMB) )) 
280 L=NP+1 
DD 300 I=1,NMB 
K=NPM(I) 
IF(I.EQ.1) GO TO 282 
IF (GAPX(I-1).E0.0.) GD TD 282 
KT=1 
GO TD 285 
232° KT=2 
285 DD 290 J=KT,K 
A(L)=A8(J,I) 
8(L)=B88(J,I) 
C(L)=CB(J,I) 
D(L)=DB(JU,I) 
IF(DMP.GT.0.0) GO TD 289 
IF(DMP) 289,289,286 
286 WRITE(20,287) AB(J,1I).BB(J,1),CB(U,1),O0B(U,1),J,1,A(L),B(L),C(L), 
IDCE} EL 
287 FORMAT(1HO,8HAB(J,1I)=,1PE12.5,2xX,8HB8B(J,I)=, 1PE12.5,2X,8HCB(J,I)=, 
11PE12.5,2X,8HDB(J,1I)=, 1PE12.5,2X, 2HJ=,13,2X, 2HI=,13/1X,5HA(L)=, 1PE 
212.5,2X,5HB(L)=, 1PE12.5,2X,S5HC(L)=, 1PE12.5,2X,5HD(L)=, 1PE12.5,2xX,2 
3HL=,1I3) 
289 L=L+1 
290 CDNTINUE 
300 CDNTINUE 
NPFT=L-1 
RETURN 
END 
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SUBROUTINE COKE(RHA,TX2,XMOG,OT,OX,NP,SOOT,OMP, XMCOKE ,RHOV, SMCOKE ) 


OIMENSION RHA(50),1TX2(200),XMOG(50),.XxCOKE(50), XMCOKE(50), 
1RCOKE(50), SMCOKE(50) 


XNP=NP 
NPL=NP- 14 
MP =NP - 4 
00 100 I=1,NPL 
XT=I 
IF(TX2(1).LT.2500.) GO Te se 
XCOKE(I )=+0.038*(RHOV-RHA(I) )*3600. *EXP(-6000./TX2(1)) 
4 +SO00T*((XNP-XI)/(XNP-1.))*(RHA(I+1)-RHA(I))/0Ox 
IF(XCOKE(I).LE.0.0) XCOKE(I )=0.0 
IF(I.EO0.1) GO TO 40 
XMCOKE(I )=OX*XCOKE(I ) 
GO TO 100 
40 XMCOKE(I )=OX*XCOKE(I)/2.0 
GO TO 100 
50 xCOKE(I)=0. 
XMCOKE(I)=0. 
100 CONTINUE 
XMCOKE (NP )=0. 
XCOKE(NP)=0. 
RCOKE (NP )=O. 
SMCOKE (NP )=0.0 
L=NP- 1 
00 750 I=1,MP 
SMCOKE(L)=SMCOKE(L+1)+XMCOKE(L) 
L=L-1 
750 CONTINUE 
KI=NP-1 
00 200 J=1,NPL 
IF (SMCOKE(KI).E0.0.) GO TO 130 
IF(RHA(KI).GE.RHOV ) GO TO 120 
XMOG(KI )=XMOG(KI )-SMCOKE(KI ) 
IF(XMOG(KI).LT.O.) XMOG(KI )=0. 
RCOKE(KI)=XCOKE(KI)*OT 
RHA(KI )=RHA(KI )+RCOKE(KI } 
IF(RHA(KI).LE.RHOV ) GO TO 150 
120 RHA(KI )=RHOV 
130 XMCOKE(KI)=0. 
XCOKE( KI )=0. 
RCOKE(KI)=0. 
150 CONTINUE 
IF(OMP) 190,190,170 
170 WRITE(20,180) XMOG(KI),xXMCOKE(KI),XCOKE(KI),RCOKE(KI), 
IRHA(KI),TX2(KI),KI 
180 FORMAT(1X,5HXMOG=, 1PE12.5,2X, 7HXMCOKE=, 1PE12.5,2X,6HXCOKE=, 1PE 12.5 
1,2X,6HRCOKE=, 1PE12.5,2X,4HRHA=, 1PE12.5,2X,4HTX2=, 1PE12.5,2X,3HKI=, 
213) 
WRITE( 20,300) 
300 FORMAT(//) 
190 KI=KI-1 
200 CONTINUE 
RETURN 
END 
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C#** 
C** * 
Crt 
Ca? 
Crr# 
Crt 
Cr** 


133 


147 


166 


203 


233 


254 


N <a «KK PD 


IS SYMBOL FOR DATA ARRAY IN CALLING PROGRAM 
IS INDEX FOR DATA ARRAY IN CALLING PROGRAM 
IS FIRST INPUT VARIABLE 

IS SECOND INPUT VARIABLE 

IS THE ANSWER (A FUNCTION OF X ANO Y) 


SUBROUTINE COMMOL(A,K,X,Y,Z) 
DIMENSION A( 1 ),C(19) 
DATA (C(I), 1=1,19)/19*0./ 
$313=(x-A(1))/A(2) 

$3 10=(Y-A(K))/A(K+1) 
M2=A(K+2) 

M4=A(K+3) 

$3 15=S$3139**2 
$312=S310**2 
$314=$313*S$315 
$311=$310*53912 

N316=8 

IF(M2.£0.1)GO TO 133 
N316=N316-3 

C(5)=$315 
C(6)=$310*$313 
C(7)=$312 

C(8)=$313 

C(9)=S310 

c(10)=1. 

Node 18 
IF(M4-2)203,166, 147 
N317=N317-4 

c(11)=$3914 
C(12)=S310*S$315 
C(13)=$312*$313 
C(14)=$311 

N317=N317-3 
C(15)=$315 
C(16)=$313*S$310 
C(17)=$312 

C(18)=$313 

C(19)=S310 

$325=0. 

K=K- 1 

M4=N316 

DO 233 J=M4,10 
N321=J+K 
$325=$325+C(J) *A(N321) 
CONT INUE 

$324=1. 

M4=N317 

DO 254 J=M4,19 
N321=J+K 
$324=5324+C(J) *A(N321) 
CONTINUE 

Z=5325/$324 

RETURN 

END 
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10 


15 
20 
25 


30 


35 


40 


45 
50 


So 


U®) 


SUBRDUTINE DISCDT (XA,ZA,TABX, TABY, TABZ,NC,NY,NZ, ANS) 
DIMENSIDN TABX(500), TABY(500), TABZ(500),NPX(8),NPY(8),YY(8) 
DIMENSION TABX(500), TABY(500), TABZ(500) ,NPX(8) .NPY(8),YY(8) 
CALL UNS (NC,IA,IDX,IDZ,IMS) 

kKeekKKK* & 

IF (NZ-1) 5.5,10 

CALL DISSER (XA,TABX(1),141,NY,IDX,NN) 
EERKEKKEKEEKKK & 

NNN=IDX+4 

CALL LAGRAN (XA, TABX(NN), TABY(NN), NNN, ANS) 
KKKEKKKKKSe * * 

GDTD 70 

ZARG=ZA 

IP 1X=IDX+1 

IP 1Z=IDZ+1 

IF (IA) 15,25,15 

IF (ZARG-TABZ(NZ)) 25, 25,20 
ZARG=TABZ(NZ) 

CALL DISSER (ZARG, TABZ(1),1,NZ,IDZ,NPZ) 
K¥EKKKKEK KK * 

NX=NY/NZ 

NPZL=NPZ+IDZ 

I=1 

IF (IMS) 30,30,40 

CALL DISSER (XA, TABX(1),1,NX, IDX,NPX(1)) 
ee KEK EY YF 

DO 35 JJ=NPZ,NPZL 

NPY (I )=(JUJ- 1) *NX+NPX(1) 

NPX(I)=NPX(1) 

I=I+14 

GDTD 50 

DD 45 JJ=NPZ,NPZL 

1S =(JJ- 1) *NX+14 

CALL DISSER (XA, TABX(1),IS,NX,IDX,NPX(I)) 
e*eeRKEKEKK KER € 

NPY(I)=NPX(T) 

I=I+1 

DO 55 [=1,1P1Z 

NLOC=NPX(I) 

NLDCY=NPY(T) 

CALL LAGRAN (XA,TABX(NLDC),TABY(NLOCY),IP1X,YY(I)) 


KEKE KEKE RK *£ 


CALL LAGRAN (ZARG, TABZ(NPZ),YY(1),1P1Z,ANS) 


eHKKEKKKKEK SE 


RETURN 
END 


ZG 


SUBROUTINE DISCT3(XA,TABX, TABY.NY,ANS) 
DIMENSION TABX(1),TABY( 1) 
CALL DISSER(XA,TABX,1,NY,2,NN) 
xeeeeR KX Ee EE 

NNN=3 

CALL LAGRAN(XA,TABX(NN), TABY(NN),NNN, ANS ) 
EEEEROERERYE 

RETURN 

END 


PAWL 


10 


13 


20 


Zo 


30 
35 


40 


SUBROUTINE DISSER (XA, TAB,I,NX,ID.NPX) 
DIMENSION TAB(2000) 
DIMENSIDN TAB( 2000) 
NPT=ID+1 

NPB=NPT/2 

NPU=NPT-NPB 

IF (NX-NPT) 10,5,10 
NPX=I 

RETURN 

NLOW=I+NPB 
NUPP=I+NX - (NPU+ 1) 

DD 15 II=NLOW,NUPP 

NLOC=II 

IF (TAB(II)-XA) 15,20,20 
CDNTINUE 

NPX=NUPP-NPB+ 1 

RETURN 

NL=NLOC-NPB 

NU=NL+ID 

DD 25 JJ=NL,NU 

NDIS=JJ 

IF (TAB(JJ)-TAB(JJU+1) ) 25.30.25 
CONTINUE 

NPX=NL 

RETURN 

IF (TAB(NDIS)-XA) 40,358,385 
NPX=NDIS-ID 

RETURN 

NPX=NDIS+1 

RETURN 

END 
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Qa ©& 


20 


100 
115 


120 


500 


1000 


SUBROUTINE OOUBLE INTERPOLATES A=F(X,Y) 


SUBROUTINE OOUBLE(I,x,Y) 

OIMENSION x(12),Y(12) 

OIMENSION CP(50),YK(50),CPGAS(50) ,HV(50) 

COMMON/TABS/ TNODE(50),DCHAR(50), ITABLE(9, 10), ITAB(9,6) 


1 » TABLES(500), ICHAR1, ICHAR2, ICHAR3, IREAC1, IREAC2 
2 . IVIRG1, IVIRG2, TREAO, TERROR, ITABNO,AINPUT(9),W(50) 
3 . ISTART,IEND, ANSWR(350) 


EQUIVALENCE (ANSWR(1),CP(1)), (ANSWR(51),YK(1)), CANSWR(201),CPGAS( 1 
1)), CANSWR(251),HV(1)), CANSWR(301),HSUB ) 
IS=ITABLE(I,9)+ISTART 

IE=ITABLE(I,9)+IENO 

I1=ISTART-1 

JX=ITABLE(I,2) 

JY=ITABLE(I,3) 

DO 1000 K=IS,IE 

Tiel 14 

IF(X(11).GT.TABLES(JUx)) GO TO 20 

JX =JX > 1 

IF(X(11).GT.TABLES(JUX)) GO TO 100 

GO TO 15 

IF(X(11).LT.TABLES(JUX+1)) GO TO 100 

UX =JUX+14 

GO TO 20 

IF(Y¥(11).GT.TABLES(JY)) GO TO 120 

JY =JY- 1 

IF(Y(11).GT.TABLES(JY)) GO TO 500 

GO To 115 

IF(Y(11).LT.TABLES(JY+1)) GO TO S00 

JY =JY+ 1 

G0) 10 120 

J1=(JY-ITABLE(1I,4))* I TABLE(I, 7)+Jx 
J2=J1+ITABLE(I,7) 
U=(Y(11)-TABLES(JY ))/( TABLES(UJY+1)- TABLES (UY) ) 
T1=TABLES(J1)+(TABLES(J2 )- TABLES(JU1))*U 
T2=TABLES(J1+1)+(TABLES(JU2+1)-TABLES(JU1+1))*U 
ANSWR(K)=T14+(T2-1T1)*(X(11)-TABLES (UX ) )/( TABLES (UX+1) - TABLES (UX) ) 
IF(K.GT.IS) GO TO 1000 

ITABLE(1I,2)=JX 

ITABLE(I,3)=JY 

CONTINUE 

RETURN 

ENO 
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20 


30 


50 


SUBROUTINE OPOX(TY,RHO,RHOV,RHOC,PL,OX,XMOG,N,NP) 
OIMENSION ALPHA(50),BETA(50),XMU(50),RHO(50), TY(50), XMOG(50) 
COMMON /PRES/ P(50),ALFAV,ALFAC,BETAV,BETAC,2Z 

OATA TI1/1800./,XMUI/2.79E-5/,.$/198./ 
P(1)=(PL*2116.217)**2 

IF(N.LT.2) GO TO 20 

N1=N-1 

00 10 I=1,N1 
ALPHA(1I)=ALFAV-((ALFAV-ALFAC)/(RHOV-RHOC ) ) *(RHOV-RHO(I)) 
BETA(1)=BETAV-((BETAV-BETAC )/(RHOV-RHOC) )*(RHOV-RHO(I)) 
XMU( 1) =XMUI*(TY(1)/TI)**1.5*((TI4S )/(TY(1)48)) 
P(I+1)=P(1)+Z*((ALPHA(I )*xXMU(I)+BETA(I)*xXMOG(I)/3600. )* 
1XMOG(1)/3600. *TY(1)*DX) 

CONT INUE 

GO TO: 25 


N=1 
00 30 I=1,N 
P(I)=SORT(P(I))/144. 
N1=N+14 

00 50 I=N1,NP 
P(1I)=P(N) 

RETURN 

ENO 
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C*tt 


Cres FOR REAL GAS *** USE FINDSR FOR PERFECT GAS SOLUTION 
C* * * 

Cte* 

C*** VORT IS V**2/RTO 

cre TOT IS TO/T 


C+** POP IS P/PO 

C*** ROR IS RHO/RHOO 

C*** HORT IS H/RTO 

C*** P2P IS P2/PO 

C*** H2RT IS H2/RTO 

C*** ROR IS R2/RO 

Cet* V IS v1 

C*** SOR IS S/R 

C*** JIREG IS AN ERROR FLAG 


cC*«** 


SUBROUTINE FINOS(VORT,TOT,POP,ROR,HORT,P2P,H2RT,R2R,V,SOR,IREG) 


SUBROUTINE FOR REAL GAS SOLUTION 


OuGaG 


$514=.5 

$515=0. 

$525=0. 

N523=0 

$520=(5.*TOT*VORT-1.)/6. 

$521=POP*S520 

$524=S$521 

$513=ROR*VORT 

$5 12=ROR*S513 

$511=.5*VORT+HORT 

$5 10=POP+$513 

S$506=VORT*TOT 

IF(S506-1.4)427,427, 146 
146 IF(S506-10.)170, 170, 153 
153. IF(S$521-S$513)164, 164, 160 
160 §52125513 


164 N§22=2 

GO TO 231 
iO VECSS21)427 427.175 
175 N522=1 

GO 710 231 


202 N522=2 
1F(S$521)217,212.212 

212 IF($521-§513)231,231,217 

217 §525=.5*S$525 
$52 1=$524-$525 
GO TO 202 

231 $§524=S$521 
S$507=$510-$521 
R2R=S512/S507 
H2RT=S511-(.5*S507**2/S512) 
$5 17=AL0G(S521)/2.3025851 
IF($517+7. )427, 427,263 

263 CALL MOLS(S517,H2RT.SOR,IREG) 


(es ee eee Ket 


Zl 


Zit 


314 


347 
348 
Jaf 
362 


370 


407 
413 


414 
427 


433 


444 


IF(IREG-1)433,433,277 

CALL MOLR(SOR,H2RT,S527, IREG) 
ERK KEKE KE 
IF(IREG-1)433,433,314 
S$527=EXP(2.3025851*S$527) 
$516=.002498*R2R 
S$526=.002498*S527 
$5252$514*($516-$526)/S516 
$503 =R2R/S527 
IF(ABS(1.-S503)-.01)433,433,347 
IF(R2R-S527)348, 433,357 
IF(S515)370,370, 362 
IF(S515)362,370,370 
$525=.5*§$525 

$514=.5*§$514 
$50321.-.1*§525 
$5212$521*S503 

$515=$525 

IF(S$517+6.5)427, 407,407 
IF($521)202,202,413 
N523=N523+1 
IF(N523-50)414,427,427 
IF(N522-1)231,231,202 
IREG=1 

GO TO 444 

$503=S5511-H2RT 
V=SORT(2.*§503) 

P2P=S521 

RETURN 

END 
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CREE ERE REEVE EER EKER EEE RRR EE RPT EE EERE RR ETT EERE EER EKER EVD REE KEKE EE 


C THIS SUBROUTINE CONTROLS THE INPUT OF NAMELIST VARIABLES ANO IT 
C ALSO SETS THE NOMINAL VALUE FOR MOST OF THE NAMELIST VARIABLES 


CEE REE REE EKER RE RE RE REE KKK EEK EEK EEE REE KEKE EE Ke KEKE 


C 

C 
1 
2 
3 
1 
{ 
1 
1 
1 
1 
m 
3 
4 
1 
2 
1 
2 
3 
1 

C 


SUBROUT 
COMMON 


? 


COMMON 


COMMON 


COMMON 


COMMON 
COMMON 
COMMON 


COMMON 
COMMON 
COMMON 
COMMON 


COMMON 
COMMON 
COMMON 


COMMON 
COMMON 
COMMON 
COMMON 


COMMON/ 


COMMON/ 
COMMON 


INE INOATA(UCASE ) 
/BACKUP/ XNPM(12),RHOBX(12),xXBM( 12), €MBB( 12), E&MFB( 12) 
NKPB( 12) ,NCPB( 12), TXK(20,12),xXK(20,12),TCP(20, 12),NPM(12) 
CPX(20,12),GAPX(12),FTEST(12) ,BTEST(12),H(12).XKB(10, 12) 
CPB(10,12),0XB(12) 
/TEMPS/ TEMOI(200),7TX1(50),TX2(200) .TX2T( 10, 12), TUL1(50) 
TUL2(50),TY(200),TEMPI,TXO, SURTEM 
/COEFFS/ A(200),B8(200),C(200) ,0(200),AB(10,12),BB(10, 12) 
CB(10,12),0B(10, 12),SB( 10, 12),RB1(10, 12),RB2(10,12),R8(50) 
§$(50),INT 
/ABLATS/ XMOG(S50O),TABL, TCHAR, RHOV,RHOC, TREC, XLOST,SOOTOS 
SOOT, XMDC,XMT 
/INOIX/ NP,NP2,IFPT,NPBS,NPF,NMB 
/TIMES/ TINT, TLIM,T,OT 
/FNTBCK/ FBLOW,EMV,EMC,H300, TEST2, TENV, OIN,HENV, FENV 
QLOSS,OHC ,HxX(12),Hx(50), TW(S0) 
/HSPARA/ OX, TL,VL,BL,OMP,VPT 
/FIXPRO/ CHARK,CHARC,ABLK,ABLC 
/TURBU/ WX,RTR,PLPT, SHAPEF 
/TRAJ/ TIME(300) ,O0CONC(300) , QRAO(300) , VEL(300) ,ALT(300) 
QCON(300) ,NTRAPT, FCONV, FRAO 
JEIXERS/ 11,12,13,14.15,16 
/JUNK/ ERR1.ERR2,ERR3,ERR4 
/INPUTS/ NTURBT,MMM,LAST,ITHIN, TFACT, TSUBL, IPRESS,NREAD 
RHOS , XMWG, TABL2,H1( 12), HEAO2( 12) ,HEAO3(12),H3(12),OXPLOT 
FBLOWL,FBLOWT,FFLAG,FV, TTABLE(20),0£LTT(20),IPRC(20) 
NPTT,1TS(50),S5R(50), OCONX, ORAOX, NHP,NPR,NREC,RTEST, SRM1 
SRM2,SRB1,SRB2,KLLL,TV,PLPTX 
/BULL/ LINE1,LINE2,LINE3 
/ARRH/ THETA(SO),AP,XB,SN,CA 
/PRES/ P(50),ALFAV,ALFAC,BETAV,BETAC,Z 
/PLTVAR/ NCPLTC,NCPLOT,NPLOT,NPCAS(25),NPPCAS, TTCL(15) 
TTICLPL(15),XTCLF(15),XTCL(15),NXTCL,XISOTH(4),Y¥3,Y4,Y5,Y6 
XxV(50),XVPNT(50),XVT(50),XLSTI,XMOT 
TABS/ TNOOE(SO), OCHAR(50), ITABLE(9, 10), ITAB(9,6) 
TABLES(500), ICHAR1, ICHAR2, ICHAR3, IREAC1, IREAC2 
. IVIRG1, IVIRG2, TREAO, TERROR, ITABNO, AINPUT(9),W(50) 
, ISTART,IENO, ANSWR(350) 
RESCUT/ TCOFF( 10). XRECES(10),xXVNEW(50) 
/FACTRS/ AOT(300) ,.FC(300),FR(300),FPLPT(300),SOVR,PHI, 
FWx( 300) ,WX1,WX2 


FQUIVALENCE (AINPUT(1),XKREAC), (AINPUT(2),CPREAC), (AINPUT(3),XKCHR 
1), (AINPUT(4),CPCHR), (AINPUT(5),XKVRG), (AINPUT(6),CPVRG), 
2(AINPUT(7),CPGAS), (AINPUT(8),HV), (AINPUT(9),HSUB ) 


CHARACTER*72 LINE1,LINE2,LINE3 
100 FORMAT(F6.0) 

110 FORMAT(A) 

NAMELIST/INPUT/ ABLC, ABLK, ALFAC, ALFAV, ALT, BETAC, BETAV 


2A 


QQ Gi Qe) 


. OXPLOT, EMBB, EMC, EMFRB, EMV, 


» TCDFF, TCP. TEMDI. TEMP I. TENVe 


, XISOTH, XK, XNPM> XRECES, =-XtcLE. 
CPCHR , CPREAC, CPVRG, XKCHR , 
, RHOS, TABL2, XMWG 

, AOT, SOVR, PHI, WX1, WX2 


Nh WM ONO OND MO & WY = 


ASTRIX = 9999. 
IF(JCASE.GT.0O) GD TO 50 
JCASE=1 


THE FOLLOWING INITIALIZATIONS ARE THE NOMINAL VALUES AS STATEO IN THE 
THE TABLE OF NAMELIST VARIABLES. MOST NOMINAL VALUES HAVE BEEN CHANGED 
TO REFLECT THE VALUES FOR FIREX 273 ANO THUS ARE NOT THE SAME VALUES 


AS SPECIFIED IN THE STABII USER’S MANUAL 


WX = 1.0 
H300 = “129..06 
NHP = 42 
RHOV = 32.0 
RHOC = 20.0 
TCHAR= 860.0 
TABL= 660. 
XMWG=15. 
TSUBL=2235. 
TABL2=1.E6 
TFACT=1. 


DHC = 5000.0 
FBLOWL= 1.00 
FRLOWT= 1.00 
FCDNV = 1.0 


FRAD = 1.0 

FV = 1.0 

Tv = 535.0 
ABLEC- 29535 
CHARK = .11 
CHARC = .40 
NCPC = 6 

NREC = 24 
TREC = 2235.0 
NMB = 3 


TENV = 535.0 
TEMPL = “535-0 
HENV = O. 
FENV = O. 
QOLOSS = O. 
Tes t2 0. 
NTURBT 1 
MMM=6 

RTR = 80000. 
SHAPEF = .05532 
PINT: =O): 
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. BTEST, CA, CHARC, CHARK. CEGAS = ace 


. FCONV, (FENV. FFLEAG, FRAG. FiEsi- 
» HENV, HSUB, HSUBV, HV, HX, H300, 
. ITHIN, MMM, NCPB, NCPLOT, NHP, NKPB, NMB 
» NP, NPLOT, NPTT, NREAD, NREC, NTRAPT 

. NTURBT, NXTCL, PLPTX, QCDNC, QLDSS, QRAO, 
RHOC, RHOV, RTR, SHAPEF, SN, SR, 


» TIME, TINT, VEIM, TREC, Ts. TSUSEe 
» IVAP,. TAK, EXO, IW VEL. Vise ver, 


XKVRG, TREAO 


NPLOT=0 


NCPLOT=0O 
NCPLTC =1 

NREAD = O 
DXPLOT =100. 
ALFAV = 7.153E10 
ALFAC = 5.781E9 
BETAV = O. 
BETAC = 1.924€5 
Z°= 3.15 

IPRESS = 0 
SN=1.0 

CA=9.5E7 
XB=.233E5 
EMV=.99 

EMNC=.65 
RHDS=16. 
ABLK=.072 
ITHIN=1 


C NOMINAL VALUE OF PLPTX CHANGED TO 1. 


C 
50 


PEP LAE: 


READ(5,100) H1(1) 
IF(H1(1).EQ.ASTRIX) LAST=1 
IF(LAST.EQ.1) RETURN 
READ(5,110) LINE1 
REAO(5,110) LINE2 
REAN(5,110) LINES 

READ (5,INPUT) 


C NREAD SHOULD ALWAYS EQUAL O 


60 


65 


70 
80 


90 


IF (NREAO.EQ.0) GO TO 80 
1=0 

I=I+1 

READ(5,70) TIME(1),OCONC(1),ORAD(1),VEL(I),ALT(1),AOT(I1) 
AOT(1)=180. -ADT(I) 
IF(ALT(1).GT.0.) GO TO 60 
TIME(1I)=TIME(I-1)+50. 
ALT(1I)=10000. 
TIME(1+1)=TIME(1I)+100. 
ALT(1+1)=6780. 
TIME(1+2)=TIME(I+1)+100. 
ALT(1+2)=3560. 
TIME(1+3)=TIME(I+2)+110. 
ALT(1+3)=10. 

NTRAPT=I+3 

DO 65 K=I,NTRAPT 
OCDNC(K)=0. 

ORAO(K)=0. 

ADT(K)=0. 

VEL(K)=20. 

TINT=TIME( 1) 
TLIM=TIME(NTRAPT ) 
FORMAT(6E 12.5) 

CONTINUE 

NPBS=0 

BL=O. 

00 90 I=1,NMB 
BL=BL+XBM(I) 
NPM(1)=XNPM(1)+.0000002 
NPBS = NPBS + XNPM(I)+ .5 


RETURN 
ENO 
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SUBROUTINE INWRIT( IRANGE ) 
OIMENSION HEAQ(12),HEAOG( 12) 
QIMENSION OQCONW( 300), ORAQW(300) 


COMMON 
1 ; 
2 ; 
3 

COMMON 
1 

COMMON 


94 


COMMON 
1 . 
COMMON 
COMMON 
COMMON 
1 ; 
COMMON 
COMMON 
COMMON 
COMMON 
1 ; 
COMMON 
COMMON 
COMMON 


& WA = 


COMMON 
COMMON 
COMMON 
COMMON 
1 , 
2 


COMMON/ 


1 

2 

3 
COMMON 
COMMON 

1 
COMMON 

1 


EQUIVALENCE (H1,HEAQ), 


/BACKUP/ XNPM(12),RHOBX(12),XBM(12),EMBB( 12), EMFB( 12) 
NKPB(12),NCPB(12),TXK(20, 12),XK(20, 12), TCP(20, 12) ,NPM( 12) 
CPX(20,12),GAPX( 12), FTEST(12),BTEST(12),H(12),XKB(10, 12) 
CPB( 10, 12),0XxB(12) 
/TEMPS/ TEMOI(200),1TX1(50),TX2(200), TX2T( 10, 12), TUL1(50) 
TUL2(50),TY(200),TEMPI,TXO, SURTEM 
/COEFFS/ A(200),B(200) ,C( 200) ,0(200) ,AB( 10,12) ,BB( 10, 12) 
CB( 10, 12).0B(10,12),S58(10, 12) ,RB1( 10, 12),RB2( 10, 12),R(50) 
§(50), INT 
/ABLATS/ XMOG(50),TABL, TCHAR, RHOV, RHOC, TREC, XLOST, SOOQTOS 
SDOT , XMOC, XMT 
/INOIX/ NP,NP2,IFPT,NPBS,NPF,NMB 
/TIMES/ TINT,TLIM,T,OT 
/FNTBCK/ FBLOW,EMV,EMC,H300, TEST2, TENV, OIN, HENV, FENV 
OLOSS,OQHC,HXX(12),HX(50),TW(50) 
/HSPARA/ QX, TL,VL,BL,OMP,VPT 
/FIXPRO/ CHARK,CHARC,ABLK,ABLC 
/TURBU/ WX,RTR,PLPT, SHAPEF 
/TRAJ/ TIME(300),QCONC(300) ,QRAO(300),VEL(300),ALT(300) 
OCON(300),NTRAPT,FCONV, FRAO 
JFIXERS/ ITt212.13,14215. 16 
/JUNK/ ERR1,ERR2,ERR3,ERR4 
/INPUTS/ NTURBT,MMM,LAST,ITHIN, TFACT,TSUBL, IPRESS,NREAQ 
RHOS , XMWG, TABL2,H1(12),HEAO2( 12) ,HEAD3(12),H3(12),QXPLOT 
FRLOWL,FBLOWT,FFLAG,FV, TTABLE(20),QELTT(20),IPRC(20) 
NPTT,TS(50),S5R(50), QCONX, QRAOX,NHP,NPR,NREC,RTEST,SRM1 
SRM2,SRB1,SRB2,KLLL,TV,PLPTX 
/BULL/ LINE1,LINE2,LINE3 
/ARRH/ THETA(50),AP,XB,SN,CA 
/PRES/ P(50),ALFAV,ALFAC,BETAV,BETAC, 2 
/PLTVAR/ NCPLTC,NCPLOT,NPLOT ,NPCAS(25),NPPCAS,TTCL(15) 
TTCLPL(15),XTCLF(15),XTCL( 15) ,NXTCL,XISOTH(4),Y3,Y4,Y5,Y6 
XV(50),XVPNT(50),XVT(50),XLSTI,XMOT 
TABS/ TNOOE(50),QCHAR(50), ITABLE(9, 10), ITAB(9,6) 
, TABLES(500), ICHAR1, ICHAR2, ICHARI, IREAC1, IREAC2 
, IVIRGt, IVIRG2,TREAO, IERROR, ITABNO, AINPUT(9),W(50) 
, ISTART,IENO,ANSWR(350) 
/TURBWT/ RENOLA( 300), OTOLA(300) 
/FACTRS/ AQT(300),FC(300),FR( 300), FPLPT(300),SOVR,PHI, 
FWX (300) ,WxX1,WX2 
/OREF/ QCONT(300), ORAOT(300), OTOTAL(300),OTCL,OTRL,OTCRL, 
QCMAX , OCMAXT , ORMAX , ORMAXT , OCANR,, OCANRT 
(H3,HEAQG) 


EQUIVALENCE (AINPUT(1),XKREAC),(AINPUT(2),CPREAC), (AINPUT(3),XKCHR 
1), (AINPUT( 4), CPCHR), (AINPUT(5),XKVRG), (AINPUT(6),CPVRG), 
2(AINPUT(7),CPGAS), (AINPUT(8),HV), (AINPUT(9),HSUB) 

CHARACTER*72 LINE1,LINE2,LINEQ 


10 FORMAT(1H1,37X33HSTAB II CHARRING ABLATION PROGRAM///, 
13(A,/)//,30H INPUT ANO INITIALIZATION OATA//) 


11 FORMAT(SX66HCONSTANT FACTORS WILL BE USEO. 


ANGLE -OF-ATTACK HISTORY 
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24 
26 
28 


52 


54 


1 1S IGNOREO./S5X6HFCONV=1PE11.5,5X5HFRAO=1PE11.5,5X3HWX=1PE 11.5, 
25H (FT), 5X6HPLPTX=1PE11.5//) 

12 FORMAT(14H INITIAL TIME=1PE10.4, 6H (SEC),6X11HTIME LIMIT=1PE 10.4, 
16H (SEC)// ,8X4HTIME,10X9HTIME STEP,6X13HPRINT CONTROL/, 
38X5H(SEC),11X5SH(SEC),6X17H(TIME STEP/PRINT)/, 
4(5X1PE10.4,6X1PE10.4,9x14)) 

13 FORMAT( 17H LOCATION SUMMARY ) 

14 FORMAT(5X5HSOVR=1PE11.5,5X4HPHI=1PE11.5,6H (OEG)//) 

15 FORMAT(SXS5HSOVR=1PE11.5,5X4HPHI=1PE11.5,6H (OEG),5X4HWX1=1PE11.5, 
15H (FT). SX4HWX2=1PE11.5,5H (FT)//) 

16 FORMAT(//30H ARRHENIUS EQUATION PARAMETERS/, 


15X ,2HN=E16.7,5X,2HA=E16.7,5X,2HB=E 16.7) 


22 FORMAT(//3XS5SHTABL=1PE11.5,8H (OEG-R), 3XSHABLC=1PE11.5,11H (BTU/LB- 


1R), 6XSHRHOV=1PE11.5,9H (LB/FT3),6X3HNP=12/ , 2X6GHTCHAR=1PE11.5, 
28H (DEG-R),3X5HABLK=1PE11.5,14H (BTU/HR-FT-R), 3XSHRHOC=1PE11.5, 
39H (LB/FT3),5X 4HMMM=I12/ , 3XSHTREC=1PE11.5,8H (OEG-R), 2X6GHCHARCe, 
41PE11.5,11H (BTU/LB-R),6XSHRHOS=1PE11.5,9H (LB/FT3),2X 7HNTURBT=I2/ 
S5X3HTV=1PE11.5,8H (OEG-R), 2X6HCHARK=1PE11.5,14H (BTU/HR-FT-R), 
65X3HFV=1PE11.5, 12X6HI THIN=I12/ ,SX3HVL=1PE11.5,5H (IN),8X3HHV=-, 
71PE11.5,11H (BTU/LB-R), 7X4HOHC=1PE11.5,9H (BTU/LB) ,.SX4HEMV=1PE11.5 
8/,8H FBLOWL=1PE 11.5, 10Xx6HCPGAS=1PE11.5,11H (BTU/LB-R),6XSHHSUB-, 
91PE11.5,9H (BTU/LB),5X4HEMC=1PE11.5/,8H FBLOWT=1PE11.5, 12X4HRTR=, 
*1PE11.5,17X5HH300=1PE11.5,9H (BTU/LB),9H SHAPEF=1PE11.5) 
FORMAT(48xX,1PE12.5,3X,1PE12.5) 

FORMAT(2X,1PE12.5,4xX,1PE12.5) 

FORMAT(//33X,14HCHAR MATERIAL/20X, 7HTHERMAL ,38X , BHSPECIFIC/3X,11H 
1TEMPERATURE , 4X, 12HCONDUCTIVITY, 19X, 1 fHTEMPERATURE , 7X, 4HHEAT,/, 
2(2X, 1PE12.5,4xX, 1PE12.5,18X,1PE12.5,3X,1PE12.5)) 


30 FORMAT(1H1,24H SURFACE RECESSION TABLE//,12H TEMPERATURE ,5X17HSURF 


1ACE RECESSION/3X7H(OEG-R), 12X8H( IN/SEC)/,(1PE12.5,7X1PE12.5)) 


32 FORMAT(//29H THERMOCOUPLE LOCATIONS (IN)/,(1P5E20.8)) 
46 FORMAT(21H1REFERENCE TRAJECTORY ,6X64H***NOTE IF QCONC(1).LT.0.0, 


{THEN THE O RAOIATIVE ARRAY CONTAINS/,36X67HSURFACE TEMPERATURE (OE 
2G-F) ANO THE OQ CONVECTIVE ARRAY IS NOT USEO.//4X26HNO. OF TRAJECTO 
3RY POINTS =,14///,8X4HTIME ,8X12HO CONVECTIVE ,4X11HO RAOIATIVE, 
A8XBHVELOCITY , 8X8HALTITUOE ,5X15HANGLE OF ATTACK/,8XS5H(SEC), 

57X 13H(BTU/FT2-SEC),3X13H(BTU/FT2-SEC),6X8H( FT/SEC), 10X4H( FT), 
612XSH(OEG)//,(1P6E16.5)) 


47 FORMAT(1X106H***THE ANGLE OF ATTACK TABLE WAS EXCEEQED. ENO-POINT 


1VALUES WERE USEO IN THE VARIABLE FACTORS CALCULATION. ) 


48 FORMAT(///35H PROPERTIES OF THE BACKUP STRUCTURE/, 


1/4X,35HNO. OF MATERIALS IN BACK-UP SHIELO=14,/,4X, 

24OHTOTAL NUMBER OF NOOES IN BACK-UP SHIELD=14,/,4x, 

32BHTHICKNESS OF BACK-UP SHIELD=1PE12.5///4X19HTEMPERATURE (OEG-R), 
ASX34HTHERMAL CONOUCTIVITY (BTU/HR-FT-R) ,SX24HSPECIFIC HEAT (BTU/LB 
5-R)/) 


50 FORMAT (20X7HTHERMAL , 38X8HSPECIFIC/ ,3X11HTEMPERATURE, 4x, 12HCONO 


{UCTIVITY, 19X, 14HTEMPERATURE , 7X, 4HHEAT,/, 
2(2X,1PE12.5,4X, 1PE12.5,18X, 1PE12.5,3x, 1PE12.5)) 

FORMAT(///55X, 10OHEMISSIVITY/8X, BHMATERIAL, 5X, 7HOENSITY, 7X, SHTHICKN 
1ESS, 7XSHFRONT, 9X4HBACK, 7X 14HNOOES/MATERIAL, /21X8H(LB/FT3), 
210X4H(IN)/,(11XI2,8X1PE10.4,4X1PE10.4,4X1PE10.4,4X1PE10.4, 
35X1PE10.4)) 

FORMAT(//4xX,6OHAOOITIONAL OATA FOR INDIVIDUAL MATERIALS IN BACKUP 
1STRUCTURE//11X,8HMATERIAL,5X, 1G6HFILM COEFFICIENT,5X,13HGAP THICKNE 
25S, 8XS5SHFTEST, 13XSHBTEST/, 25X 14H(BTU/HR-FT2-R), 10X4H(IN)/, 
3(13X13,12X1PE10.4,9X1PE10.4,7X1PE11.4,7X1PE11.4)) 


56 FORMAT(/4X18HCABIN TEMPERATURE=1PE12.5,8H (OEG-R),5X19HHEAT LOSS T 


10 CABIN=1PE12.5,17H (BTU/HR-FT2-SEC)//,4xX21HVIEW FACTOR TO CABIN=, 
21PE12.5,10X26HFILM COEFFICIENT TO CABIN=1PE12.5,15H (BTU/HR-FT2-R) 
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3/7) 

58 FORMAT(64H TEMPERATURE OISTRIBUTION IN TEST SPECIMEN IS ARBRITARY 
1 (OEG-R)/,(1P8E12.5)) 

60 FORMAT(67H TEMPERATURE DISTRIBUTION IN TEST SPECIMEN IS UNIFORM AN 
10 EQUAL TO ,1PE10.4,8H (OEG-R)) 

62 FORMAT(66H LINEAR TEMPERATURE OISTRIBUTION ASSUMEO IN TEST SPECIME 
IN (OEG-R)/,( 1PE12.5)) 

70 FORMAT(S2H1TRAJECTORY WITH LOCAL HEATING RATES (LAMINAR CASE)//, 
14X26HNO. OF TRAJECTORY POINTS =,14//56XSHLOCAL,11XSHLOCAL/, 
28X4HTIME, 11X8HVELOCITY, 8X8HALTITUOE,4X12HQ CONVECTIVE,4X11HQ RAOIA 
3TIVE/ ,8XSH(SEC), 10X8H( FT/SEC), 10X4H( FT), 7X13H(BTU/FT2-SEC), 
43X13H(BTU/FT2-SEC)//,( 1P5E16.5)) 

75 FORMAT(S4H1TRAJECTORY WITH LOCAL HEATING RATES (TURBULENT CASE)// 
14X26HNO. OF TRAJECTORY POINTS =,14//51XSHLOCAL, 10XSHLOCAL, 10x, 
2SHLOCAL , 9X9HTURBULENT/,6X4HTIME, 10X8HVELOCITY, 7X8HALTITUOE, 
35X12HQ CONVECTIVE,3X11HQO RAOIATIVE,4X12HREYNOLOS NO. ,6XGHFACTOR/, 
AGXSH( SEC), 9XB8H( FT/SEC) , 9X4H( FT), 7X 13H(BTU/FT2-SEC), 2x, 
513H(BTU/FT2-SEC)//,(1P7E15.7)) 

8O FORMAT(//39X 10OHINTEGRATEO, 15X 1OHINTEGRATEO, 1SX10OHINTEGRATEO/, 
117X4HTIME, 17X12HQ CONVECTIVE, 13X11HQ RAOIATIVE,13X15HQ CON. + Q RA 
20./,(1P4E25.7)) 

WRITE(20,10) LINE1, LINE2, LINES 
WRITE(20, 13) 
IF(PLPTX.LE.O.)} GO TO 95 
WRITE( 20,11) FCONV, FRAO, WX,PLPTX 
GO TO 102 

95 IF(SOVR.GT.1.) GO TO 100 
WRITE(20,14) SOVR,PHI 
GO TO 102 

100 WRITE(20,15) SOVR,PHI,WX1,WX2 

102 CONTINUE 

WRITE(20,12) TINT, TLIM, (TTABLE(I),OELTT(I),IPRC(I),I=1,NPTT) 

WRITE(20,16) SN,CA,XB 


104 VLP=VL*12. 


WRITE(20,22) TABL,ABLC, RHOV,NP, TCHAR,ABLK, RHOC, MMM, TREC, CHARC, 

{ RHOS ,NTURBT, TV, CHARK, FV, ITHIN, VLP,HV,OHC, EMV, FBLOWL, 

2 CPGAS,HSUB, EMC, FBLOWT ,RTR.H300, SHAPEF 

120 WRITE(20,30) (TS(1I),SR(I),I=1,NREC) 

WRITE( 20.32) (XTCL(1), 1=1.NXTCL) 

WRITE(20,46) NTRAPT,(TIME(I},QCONC(I}),QRAO(I),VELC(I),ALT(I),AOT(I) 
1 ,Il=1,NTRAPT ) 

IF(IRANGE.EQ.1) WRITE(20, 47) 


196° SUPsGE* 12" 


WRITE(20,48) NMB,NPBS,BLP 

OO 150 I=1,NMB 

LK=NKPB(I) 

LCP=NCPB(I) 

KLLL=MINO(LK,LCP) 

WRITE(20,50) (TXK(N,I).XK(N,I),TCP(N,I),CPX(N,I).N=1.KLLL ) 
IF(LK-LCP)} 140,150,144 


140 KLLLL=KLLL+1 


WRITE(20,24) (TCP(N,I),CPX(N,I)}),N=KLLLL,LCP) 
GO TO 150 


144 KLLLL=KLLL+1 


WRITE(20,26) (TXK(N,I),XKON,I),N=KLLLL,LK) 


150 CONTINUE 


WRITE( 20,52) (LLU,RHOBX(LLJU), XBM( LLU). EMFB( LLU), 

{ EMBB( LLU), XNPM(LLJU),LLU=1,NMB) 
WRITE(20,54) (J,H(JU), GAPX(J), FTEST(JU), BTEST(JU) ,J=1,NMB) 
WRITE(20,56) TENV,HENV,FENV,QLOSS 
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IF(TEST2) 156,158,160 
156 WRITE(20,58) (TEMDI(K),K=1,NPF) 
GD TO 162 
158 WRITE(20,60) TEMPI 
GD TO 162 
160 WRITE(20,62) (TEMDI(L),L=1,NPF) 
162 CDNTINUE 
IF(QCONC(1).LT.O.) GD TO 500 
DO 200 I=1,NTRAPT 
OCDNW(I)=FC(1I)*OCON(I) 
QRADW(I)=FR(1I)*ORAD(I) 
200 CONTINUE 
IF(NTURBT.NE.O) GD TD 300 
WRITE(20,70) NTRAPT,(TIME(I),VEL(I),ALT(I), OCONW(I),ORAOW(I),I=1, 
INTRAPT ) 
GD TO 400 
300 WRITE(20,75) NTRAPT,(TIME(I),VEL(I),ALT(I),OCONW(I),ORADW(I), 
1 RENDLA(I),QOTOLA(I),1=1,NTRAPT ) 
c Q-REFERENCE 
400 QCMAX=0.0 
QCMAXT=0.0 
ORMAX=0.0 
ORMAXT=0.0 
QCANR=0.0 
QCANRT=0.0 
Oncl-o. 
OTRL=O. 
OTCRL=O. 
OCONT(1)=0. 
OCONT(NTRAPT )=0. 
ORADT(1)=0. 
ORADT(NTRAPT)=0. 
OTOTAL(1)=0. 
OTDTAL(NTRAPT)=0O. 
DD 450 I=2,NTRAPT 
IF(QCONC(I).LT.OCMAX) GD TD 410 
OCMAX=QCDNC(I) 
OCMAXT=TIME(TI) 
410 IF(QRAD(I).LT.ORMAX) GD TD 420 
ORMAX=ORAD(I) 
ORMAXT=TIME(I) 
420 IF(QCDONC(I)+QRAOQ(I).LT.OCANR) GD TD 430 
OCANR=OCONC(I)+ORAD(T) 
OCANRT=TIME(I) 
430 J=I-1 
OTO=TIME(I)-TIME(J) 
OTCL=OTCL4+DTD* (QCONC(I )+OCONC(J))/2. 
OTRL=OTRL+OTO*(ORAD(I )+ORAD(J))/2. 
OCONT(I)=OCONT(JU)+DTD* (OCONW( I )+OQCONW(J))/2. 
ORADT(1I)=ORADT(JU)+DTD* (QRADW(I)+ORADW(U))/2. 
OTOTAL(I )=QCDNT(I )+ORADT(I) 
450 CONTINUE 
OTCRL=QTCL+OTRL 
WRITE(20,80) (TIME(I).OCONT(I),ORADT(I), OTOTAL(I),I=1,NTRAPT ) 
500 RETURN 
END 
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SUBRDUTINE ISOTHM(DEPTH, TEMP ,BOND,N,ANS.ITT1,1TT2) 
DIMENSION DEPTH( 1), TEMP(1) 
ANS=O. 
K=N- 1 
DD 100 I=#1.K 
IF(TEMP(1)-BOND)2,1.3 

1 ANS=DEPTH(I) 
GD TD 100 

2 IF(TEMP(I+1)-BDND) 100, 100,4 

4 ANS=DEPTH(I+1)-(TEMP(1+1)-BOND)*(DEPTH(I+1)-DEPTH(I))/(TEMP(1+1)- 
1TEMP(I)) 
GD TD 100 

3 IF(TEMP(I+1)-BDOND)5, 100, 100 

5 ANS=(TEMP(1)-BOND)*(DEPTH(1+1)-DEPTH(1I))/(TEMP(1)-TEMP(1I+1))+DEPTH 
1(1I) 

100 CONTINUE 

IF(BOND.EQ. TEMP(N) )ANS=DEPTH(N) 
RE TURN 
END 
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SUBROUTINE LAGRAN (XA,X,Y,N,ANS) 
DIMENSION X(200),Y(200) 
DIMENSION X(200),Y(200) 
SUM=0.0 

00 3 I=1,N 

PROD=Y(I) 

DO 2 J=1,N 

A=X(1I)-X(J) 

IF (A) (2 
B=(XA-X(U))/A 
PROD=PROD*tB 

CONTINUE 

SUM=SUM+PROD 

ANS=SUM 

RETURN 

END 


225 


QA O7O.@ @)@.@ at@ar@ 


THIS PROGRAM WAS WRITTEN BY DR DONALD M. CURRY OF THE NASA MANNED 
SPACECRAFT CENTER IN HOUSTON, TX. LT RICHARO A. SCHWARTING, USN 
BROUGHT THE PROGRAM TO ORAPER LABS ANO USEO THE PRDGRAM IN HIS 
THESIS WORK (SEE MIT OCEAN ENGINEERING THESIS BY LT SCHWARTING, 
MAY 1983). THE THESIS WAS SUPERVISED BY RICHARO T. MARTORANA 

DF GROUP 20F AND THE DOCUMENTATION FOR THE PROGRAM I.E. USER’S 
MANUAL CAN BE FOUNO IN GROUP 20F. 
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ee eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeweewwwwewee = ow w 


DIMENSION CP(50),YK(50) ,CPGAS(50),HV(50) 

DIMENSIDN DL1(50),0L2(50) ,RL1(50).TIN( 10), TOUT( 10), TUL2R(500), 
1TXAR(500) 

DIMENSION TUL3R( 600), THETA2(50),XMSG(50) ,RHD7(50) , RHOR2(600) 
DIMENSION XMCDKE(50),RHA(50O), SMCDKE(50),DEN(50) 


CDMMON/YYZY/ QSIC(50), RHOCF, SN2, XB2, CA2, HV2 
COMMDN /ABPRDP/ RHD(50) 
CDMMDN /BACKUP/ XNPM(12),RHOBX(12),xXBM(12),EMBB(12),EMFB( 12) 


1 , NKPB(12),NCPB(12),TXK(20,12),xXK(20, 12), TCP(20, 12) ,NPM( 12) 
2 , CPX(20,12),GAPX(12) ,FTEST(12) .BTEST(12),H( 12), XKB(10, 12) 
3 . CPB(10,12),DxXB( 12) 

COMMON /TEMPS/ TEMOI(200),1TX1(50),TX2(200),TX2T( 10, 12), TUL1(50) 
1 , TUL2(50),TY(200), TEMPI,TXO,SURTEM 

COMMON /COEFFS/ A(200).B(200),.C(200),D(200),AB(10, 12) ,.BB(10, 12) 
{ . CB( 10, 12),0B(10,12),SB( 10, 12), RB1( 10, 12), RB2( 10, 12),R(50) 
2 , SeSOv 2 INT 

COMMON /ABLATS/ XMOG(50), TABL, TCHAR, RHDV,RHOC, TREC, XLOST, SDDTDS 
1 SOOT ,XMOC, XMT 


COMMON /INDIX/ NP,NP2,IFPT,NPBS.NPF,NMB 

CDMMDN /TIMES/ TINT,TLIM,T,DT 

COMMON /FNTBCK/ FBLOW,EMV,EMC,H300, TEST2, TENV,OIN,HENV,FENV 

1 . OLOSS,DHC,Hxx(12),HX(50),TW(50) 

CDMMON /HSPARA/ DX, TL,VL,BL,OMP,VPT 

COMMON /FIXPRO/ CHARK,CHARC,ABLK, ABLC 

COMMON /TURBU/ WX,RTR,PLPT, SHAPEF 

COMMON /TRAJ/ TIME(300) ,QCONC(300).ORAOD(300).VEL( 300), ALT(300) 

1 , OCON(300),NTRAPT, FCONV, FRAO 

CDMMDN /FIXERS/ 11,12,13,14,15,16 

CDMMDN /JUNK/ ERR1,ERR2,ERR3,ERR4 

COMMDN /INPUTS/ NTURBT,MMM,LAST,ITHIN, TFACT, TSUBL, IPRESS,NREAD 
RHDS ,.XMWG, TABL2,H1(12),HEAO2(12),HEAD3( 12),H3(12),DXPLOT 
FBLDWL,FBLDWT,FFLAG, FV, TTABLE(20) ,DELTT(20), IPRC(20) 
NPTT,TS(50),S5R(50),OCONX, ORADX ,NHP ,NPR,NREC,RTEST, SRM1 

. SRM2,SRB1,SRB2,KLLL,TV,PLPTX 

COMMON /BULL/ LINE1,LINE2,LINE3 

COMMDN /ARRH/ THETA(50),AP,XB,SN,CA 

CDMMON /PRES/ P(50),ALFAV,ALFAC,BETAV,BETAC,2 

CDMMON /PLTVAR/ NCPLTC,NCPLDT,NPLOT,NPCAS(25),NPPCAS,TTCL( 15) 


& WN = 


1 , TTCLPL(15),XTCLF(15),XTCL(15),NXTCL,XISOTH(4),Y3,Y4,Y5, Y6 
2 . XV(50),XVPNT(50),XVT(50),XLSTI,XMDT 
COMMON/TABS/ TNODE(50),OCHAR(50), ITABLE(9, 10), ITAB(9,6) 
1 . TABLES(500), ICHAR1, ICHAR2, ICHAR3, IREAC1, IREAC2 
) . IVIRG1, [LVIRG2, TREAD, IERROR, ITABNO, AINPUT(9) ,W(50) 
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3 . ISTART, IENO, ANSWR(350) 

COMMON/RESCUT/ TCOFF(10),XRECES( 10), XVNEW(50) 

COMMON /TRBATS/ PLA(300),TLA(300) ,HLA(300) ,VLA( 300), TTA(300) 
COMMON /FACTRS/ AOT(300),FC(300),FR(300),FPLPT(300),SOVR.PHI, 


1 FWX(300) ,WX1,WX2 
COMMON /QREF/ QCONT( 300), QORADT( 300) ,QTOTAL(300),QTCL,QTRL,OTCRL, 
1 OCMAX , QCMAXT, QRMAX , QRMAXT , OCANR, QCANRT 


EQUIVALENCE (H1,HEAD), (H3,HEADG) 

EQUIVALENCE (ANSWR(1),CP(1)), (ANSWR(51),YK(1)), (ANSWR(201),CPGAS( 1 
1)), (ANSWR(251),HV(1)), (ANSWR( 301) .HSUB ) 

CHARACTER*72 LINE1,LINE2,LINE3 


10 FORMAT(1H1,6X44HVL WAS NOT INPUT. THIS CASE WILL BE SKIPPEO. ) 

15 FORMAT(////,5X,43HPROGRAM DOES NOT PERMIT INITIALIZATION WHEN 
122H THERE IS INITIAL CHAR) 

20 FORMAT (1H1,12HOUTPUT DATA.//) 

25 FORMAT(1HO,80H THE RANGE DOF THE ENTHALPY-TEMPERATURE CURVE FIT WAS 
1EXCEEDED AT A TEMPERATURE DF. 1E£10.4) 

35 FORMAT(/1X,25HTHE VALUES DF TXAR(UJU) ARE/1X,.6(1PE12.5)) 

40 FORMAT(//13H ****** TIME=,1PE12.5,9X1OHTIME STEP=1PE12.5//, 
115X6HFCONV=1PE 12.5, 16XSHFRAO=1PE12.5, 1GX9HVELDCITY=1PE12.5/, 
28X13HQ CONVECTIVE=1PE12.5,9X12HO RAOIATIVE=1PE12.5,9X1GHANGLE OF A 
3TTACK=1PE12.5/,3X18HGAS ABLATION RATE=1PE12.5,2X19HCHAR ABLATION R 
4ATE=1PE12.5,5X2OHTOTAL ABLATION RATE=1PE12.5/,5X1GHRECESSION DEPTH 
5=1PE12.5,6X1SHRECESSION RATE=1PE12.5,8X17HSUBLIMATION RATE=, 
61PE12.5) 

45 FORMAT(/10X, 4HOIN=1PE 12.5, 7X 7HORERAO= 1PE 12.5, 7X 7HTQSUBL=1PE 12.5, 
18X6HALPHA=1PE12.5/,4X1OHQHDT WALL=1PE12.5,8X6HOSIO2=1PE 12.5, 
27X THTOOXID=1PE 12.5, 9XSHBCDF=1PE12.5/, 10X4HOQWB= 1PE 12.5, 9XSHTOIN=, 
31PE12.5,6X8HTQRERAD=1PE12.5, 12X2HG=1PE12.5/,7X7HOBLOCK=1PE12.5, 
AQXSHTOHW= 1PE 12.5, 7X 7HHTX -HW=1PE12.5, 11X3HPL=1PE12.5/,8XG6GHOSUBL=:, 
51PE12.5, 7X 7HTORADX=1PE 12.5, 10OX4HHTX=1PE12.5,9XSHPLPT=1PE12.5/, 
68X6GHODXID=1PE12.5,6X8HTOBLDCK=1PE 12.5, 8XGHRHDST=1PE 12.5, 11X3HWX=, 
71PE12.5) 

50 FORMAT(/5X,41HSURFACE RECESSION IS DIFFUSION CONTROLLED/ ) 

55 FORMAT(/5X,4S5HSURFACE RECESSION IS REACTION RATE CONTRDOLLED/ ) 

60 FORMAT(//GOH TEST SPECIMEN PROFILES AT THE END OF THE TIME STEP, 
1 TIME=,1PE12.5) 

65 FORMAT(/6X1HX, 7X11HTEMPERATURE , 4X 7HDENSITY ,5XSHTHETA, 7X5HM DOT, 
19XGHIM COKE ,9X7HMT COKE ,GX8HPRESSURE/5X4H( IN), 7X7H(DEG-F), 
26X8H(LB/FT3).9X,3(4X11H(LB/FT2-HR)).SXSH(PSI)/, 
3(F10.5,F12.1,F13.2,F11.4,3615.7,F11.4)) 

70 FORMAT(//61H TEMPERATURE DISTRIBUTION IN THE BACK-UP STRUCTURE 
1(DEG-F)/,(6E16.7)) 

75 FORMAT(//3X24HPENETRATION OEPTHS (IN)//,6X12HMAX DEPTH OF,F8.2, 
118H (DEG-F) ISOTHERM=E12.5/,6X12HMAX DEPTH OF ,F8.2,18H (DEG-F) ISD 
2THERM=E£12.5//,6X,8HDEPTH OF ,F8.2,18H (DEG-F) ISOTHERM=E12.5, 
36X8HDEPTH DOF,F7.5,15H DENSITY RATID=£12.5/,6X8HDEPTH OF ,F8.2, 
418H (OEG-F) ISOTHERM=E12.5,6X8HOEPTH OF,F7.5,15H DENSITY RATID=, 
5612.5) 

8O FORMAT(//3X30HEQUIVALENT TEST SPECIMEN LOSS=F10.5,5H (IN) ,6X32HEOU 
1IVALENT TEST SPECIMEN LENGTH=F10.5,5H (IN)) 

85 FORMAT(1H1,47X8HCASE NO. ,I3) 

90 FORMAT(1H1.3(A./)) 

95 FORMAT(/7X4QOH*****TEMPERATURES ARE IN DEGREES F.*****,// 

{7X4HVL =F6.3,2X4HNP =13,2X18HINITIAL VELOCITY =F7.0,2X34HINITIAL T 
2EMPERATURE = DISTRIBUTION,/7X1GHEXECUTION TIME =,F5.2, 
35H SEC.,5X2OHND. DF PLOT POINTS =14//) 

100 FORMAT(/,7X40H*****TEMPERATURES ARE IN DEGREES F.*****,// 

17X4HVL =F6.3,2X4HNP =13,2X18HINITIAL VELOCITY =F7.0,2X21HINITIAL T 


wed 


QO 


QO Aa Or@rGQue) 


ZEMPERATURE =F6.2/7X1GHEXECUTION TIME =,F5.2,5H SEC. ,5X, 
32OHNO. OF PLOT POINTS =I4//) 

105 FORMAT(7X,28HTOTAL CONVECTIVE HEAT LOAO =,F9.1,4H BTU,49H TOTAL 
TREFERENCE LAMINAR CONVECTIVE HEAT LOAO =,F9.1,/,7X28HTOTAL RAOIANT 
2 HEAT LOAO =,F9.1,4H BTU,49H TOTAL REFERENCE LAMINAR RAOTANT 
SHEAT LOAO =,F9.1,/7X28HTOTAL CONV + RAO HEAT LOAO =,F9.1,4H BTU 
4,49H TOTAL REFERENCE LAMINAR CONV + RAQ HEAT LOAO =,F9.1,//) 

110 FORMAT(7X,4OHMAXIMUM REFERENCE CONVECTIVE HEAT RATE =,F8.2, 
136H TIME OF MAX REF. CONV HEAT RATE =,F8.1,/7X, 4OHMAXIMUM REFER 
Z2ENCE RAOIANT HEAT RATE =,F8.2,36H TIME OF MAX REF. RAQ. HEAT 
SRATE =,F8.1,/7X4OHMAXIMUM REFERENCE CONV + RAO HEAT RATE =,F8.2, 
436H TIME OF MAX REF TOTAL HEAT RATE =,F8.1//) 

115 FORMAT(7X,30HMAXIMUM CONVECTIVE HEAT RATE =,F8.2,40H TIME OF 
1MAX CONVECTIVE HEAT RATE =,F8.1,/7X3OHMAXIMUM RAOIANT HEAT RATE 
2° =,68.2,40R TIME OF MAX RAOTANT HEAT RATE =,F8.1,/7X3OHMAX 
3IMUM CONV + RAO HEAT RATE =,F8.1,40H TIME OF MAX CONV + RAO H 
SEAT RATE =, fo. 1577) 

120 FORMAT(7X18HTOTAL Q-HOT WALL =F9.2,8X1SHTOTAL Q-RAO. =F9.2, 


18X1GHTOTAL Q-RERAO. =F9.2/,7X18HTOTAL Q-BLOCK =F9 32,85) 
21SHTOTAL Q-SUBL. =F9.2,8X16HTOTAL Q-IN =—9°2/. 1x. 
318HTOTAL Q-COMB. =F9.2//) 


125 FORMAT(7X1GHMAXIMUM DEPTH OF,F7.1,11H ISOTHERM =,F8.3,11H TIME WH 
1EN,F7.1,30H ISOTHERM REACHEO MAX OEPTH =,F8.1,/7X16HMAXIMUM QEPTH 
1 OFF? 21, Vt TSOIRERM = sre. 3711) TIME Weenie 
130H ISOTHERM REACHEO MAX OEPTH =.F8.1/.7X34HMAXIMUM SURFACE TEMPE 


2RATURE =F8.1,48H TIME WHEN MAX SURFACE TEMPERATURE OCCURREO 
3 =F8.1/,7X34HMAXIMUM BONOLINE TEMPERATURE =F8.1,48H TIME WHE 
4N MAX BONOLINE TEMPERATURE OCCURREO =F8.1/, 7X34HBONOL 
SINE TEMPERATURE AT IMPACT =,F8.1,48H TIME TO I 
GMPACT =,F8.1,//) 


130 FORMAT(7X26GHTOTAL SURFACE RECESSION =,F7.3,3H IN,/1H1) 
135 FORMAT(1H1,//,(5X13HPLOT CASE NO.,I14,5H HAS,15,2X7HPOINTS. )) 


NCASE=0 
LAS1=0 
REWINO 16 
JCASE=0 
LFLG=1 
CALL TBLST(1) 
~rVvTKr THT 
200 CONTINUE 
CALL RESET 
A¢¥ 4 ECE eKE 
IF(CFLG{ EO. 1) DELTIIC1)-0- 
LFLG=0 
0O 205 I=1,10 
205 TCOFF(1I)=2.€6 
CALL INOATA(JCASE ) 


eOeeEKRER EK? 


IF( LAST.EO-41) GO TO) 725 
INITIALIZATION 


UNIT 10 USEO FOR PLOTING ANO IS UNNECESSARY 
IF(NCASE.EQ.0.ANO.NCPLOT.GT.0O) REWINO 10 
IF(NPLOT.GT.O) WRITE( 10) (H1(1I),1=1,12), (HEAO2(1I).1=1,12), 
1 (HEAO3(I),I=1,12), NXTCL, TINT, QCONC(1) 
NPPCAS=0 
1CI-0 
ICOUNT=0 
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JEND=0 
IFTC=1 
IPLOT=1 
ICUT=1 
INT=1 
NK=1 
TEM=1 
IBC=1 
Ti7=1 
NRS=2 
T1=2 

T2=2 

I3=2 

I4=2 

I9=2 

I6=2 
ADTX=0. 
OMP=0. 
SX0=0.0 
SOOT =0.0 
SOOTS=0.0 
XLSTV=0.0 
XLOST=0.0 
XLOSTS=O. 
XMT=0.0 
XMDT=0.0 
XMDS=0.0 
XMOC=0.0 
XMAXTI=0. 
XMAX2=0. 
QCONM=0.0 
QRAOM=0.0 
OTM=0.0 
TCONM=0O. 
TRAOM=O. 
TQTM=0. 
TFNM=0.0 
TLNM=0.0 
QHW1=0. 
QOXIO1=0. 
QBLOC1=0. 
QRERA1=0. 
QSUBL1=0. 
QRAOX1=0. 
TQHW=0. 
TOOXIO=0. 
TOBLOC=O. 
TQORERA=0. 
TQSUBL=0. 
TORADX=0. 
TOIN=O. 
ERR2=0. 
ERRS=0.0 
SN =i 
XB2=63500. 
CA2=7.9E0O9 
RHOCF=12.8 
HV2=3220. 
HSID2=29000. 
BETAT=.20 


Ze? 
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DAS 


225 


230 


230 


245 
250 


209 


260 


BETAL=.25 
XMP=22. 

XMC=28. 

NTR=NTRAPT- 1 

T2TINT 

IF(T.LT.TIME(1)) T=TIME(1) 
IF(TLIM.GT.TIME(NTRAPT)) TLIM=TIME(NTRAPT ) 
00 240: T=1.NxTCEL 

XTCLFE CI )=xXTCLCE)7 12: 

OO 215 I=1,NTRAPT 

OCON(I )=OCONC(I) 
IF(QCONC(1).LT.0.) NTURBT=0 
00 225 [=1,10 

TOUT(1)=2.£6 

TIN(I )=2.€6 

IF(VL.GT.O .) GO TO 230 
WRITE(20, 10) 

GO TO 200 

NPX=VL/ .O7+1. 

IF(NP.LE.O) NP=NPX 
NNPM=NP - 1 

XNP =NP 

NP2=NP/2 

TFPT=41 
IF(NP2*2.EO.NP)IFPT=0 
NPF=NP+NPBS 

VL=EVL/12.0 

VLV=VL 

BL=BL/12.0 

TL=VL+BL 

OX=VL/(XNP-1.0) 

IF(TEST2) 235,255,255 

00 240 K=1,NP 
TX1(K)=TEMOI(K) 

TX2(K )=TX1(K) 

TUL 1(K )=TX1(K) 

TUL2(K )=TX1(K) 

CONTINUE 

L=NP+1 

00 250 I=1,NMB 

LN=NPM(I) 

OO 245 J=1,LN 

TX2T(JU,I )=TEMDI(L) 

L=L+1 

CONT INUE 

CONTINUE 

TEMPW=-1.0E7 

GO TO 260 

TEMPW=TEMPI-460. 
IF(TEST2.GT.0.) TEMPW=-1.0E7 
CALL TEMPO 

CEENRERE RE HR 
AP=CA*(RHOV-RHOC)**(SN-1. ) 
AP2=CA2*(RHOC-RHOCF )**(SN2-1. ) 
OO 265 I=1,NP 

XMOG(I)=0. 

THETA(I)=1.0 

IF(SN.EO.1.) THEN 
TUEZCE)=0: 

ELSE 


2350 





DW WS sc 


265 


zZ10 


213 


TUL CT )=1./(4525N) 
ENO IF 

RHO( I )=RHOV 
RHO7(1I)=RHOC 
XMSG(1)=0. 

RHA(I )=RHOC 

OEN(I )=RHOV 
IF(TX2(1).GT.TABL) GO TO 270 
CONT INUE 

GO TO 275 
WRITE(20, 15) 

GO TO 200 
XMMM = MMM 

NP SO=MMM* (NP -1)+14 
DO 280 I=1,NPSO 


THIS LOGIC IMPLIES THAT SN=SN2 


280 


285 
THE 


286 


IF(SN.EQ.1.) THEN 
TUL2R(1)=0. 

ELSE 

TUL2R(1I)=1./(14.-SN) 

ENO IF 

IF(SN2.EQ.1.) THEN 
TUL3R(1)=0. 

ELSE 

TUL3R(1I)=1./(1.-SN2) 

ENO IF 

RHOR2(1)=RHOC 
IF(TUL2R(1).GT.TABL) GO TO 270 
CONTINUE 

XV(1)=0.0 

oO 285 1=2,NP 
XV(1)=XV(1-1)+0Xx 

CONTINUE 

NEXT IF IS CUT SINCE PLPTX WILL ALWAYS >O 
IF(PLPTX.LE.O.) GO TO 287 
OO 286 I=1,NTRAPT 
FC(1)=FCONV 

FR(I)=FRAO 

FWX(1)=WX 

FPLPT(1)=PLPTX 

CONTINUE 

GO TO 288 


THIS SUBROUTINE SHOULO NOT BE CALLEO---SINCE PLPTX SHOULD 
ALWAYS BE >0/ 


287 


288 


CALL FACTR(NTRAPT,QCONC(1),1ERR, IRANGE ) 


EEEEHREKE SE * 


IF(IERR.GT.O) GO TO 200 
CALL TURF(OCON, VEL,ALT,NTRAPT,OCONC,RTR,OMP, SHAPEF ,ITHIN, TIN, TOUT, 
1 NTURBT, TIME) 

ERO REEEY 

IF(OELTT(1).GT.O.) GO TO 295 
LFLG=1 

NPTT=1 

TTABLE(1)= TIME(1) 

DELTT(t)=.1 

TPRG(1)=500.*TFACT+.5 

O00 290 I = 2,NTRAPT 

NE SCOCONCT) seit. 1,E-03) OTT =10. 


Zo 


(@) 


290 
2935 


300 


305 
310 


J13 


314 


J413 


a17 


320 


IF (QCON(I) .GT.0.0 .AND. QCON(I).LT. 10.) OTT =1. 
IF (QCON(I) .GT. 10.0 .AND. QCON(1) .LI. 202)°0it =eeG 
IF (OCON(I) .GT. 20.0 .ANO. OCON(1) -LI- 30-7) 001s 
IF(QCON (I).GT. 30.0.ANO. QCON (1I).LT. 200. )DTT =.1 
IF{ QCON (I) .GT.200.0 .ANO. QCON(I) .LT. 700.) OTT = .0S 

IF( QCON (I) .GT. 700.0 .ANO. OCON({1I) .LT. 1100) 90 ie=so24 

IF( QCON (I) . GT. 1100.) DTT = .0O1 

ILAST = I 

IF (QCON(I).GT. QCON(I-1))ILAST =I-1 

IF (QCON(I) .GT. QCDON(I-1) .AND. OTT .GT. DELTT(NPTT)) GO TD 290 
IF(ABS( (DTT -DELTT(NPTT))/OELTT(NPTT)).LT.0.01) GD TD 290 

IF( NPTT .GE. 20) GO TO 290 

NPTT = NPTT + 1 

TTABLE(NPTT) = TIMECILAST) 

DELTT(NPTT) = DTT 

IPRC(NPTT )=50. *TFACT/DTT+0.5 

CONTINUE 

DTS=DELTT(1) 

DT= DELTT(1)/3600.0 

CALL INWRIT(IRANGE ) 


EeEKER EKER EDR 


CALL TBLST(2) 

+ very wee KR KEE 
IF(IERROR.E€0.1) GO TO 200 
WRITE(20,20) 


TIME sS TEP 


LTECT.LT. IMEC IETCSH1)) GO 10: 340 

LETC=1 FIC 

IF(IFTC+1.GT.NTRAPT) GO TO 305 

GD TD 300 

T=TIME(NTRAPT ) 

TFTC=(T-TIMECIFTC) )/(TIME(IFTC+1)-TIME(IFTC)) 

TX=TLACIFTC)+(TLACIFTC+1)-TLACIFTC))*TETC 

TT=TTACIFTC)+(TTACIFTC+1)-TTACIFTC))*TFTC 

HL=HLACIFTC)+(HLACIFTC+1)-HLACIFTC))*TETC 

VX=VLACIFTC)+(VLAC IFTC+1)-VLACIFTC))*TFITC 

PL=PLA(IFTC)+(PLA(CIFTC+1)-PLAC(IFTC))*TFIC 

VELX= VELCIFTC)+ (VELCIFTC+1)-VELCIFTC))*TFITC 

ALTX= ALT(CIFTC)+ (ALTCIFTC+1)-ALT(IFTC))*TFTIC 

IF(PLPTX.LE.O.) GO TO 313 

PLPT=PLPTX 

IF(QCONC(1).GE.0.) GD TD 317 

GO TO 314 

PLPT=FPLPT(IFTC)+(FPLPT(IFTC+1)-FPLPT(IFTC))*TFETC 

IF(QCONC(1).GE.0.) GD TD 315 

SURTEM=QRAO(IFTC)+(ORAO(IFTC+1)-QRAO(IFTC))*TFTC+460. 

GO TO 425 

FCONV=FC(IFTC)+( FCC IFTC+1)-FCC(IFTC))*TFTIC 

FRAD =FR(IFTC)+(FRC(IFTC+1)-FR(IFTC))*TFIC 

OCONX =FCONV* (OQCDN( IFTC)+(QCON( IF TC+1)-QCON(IFTC))*TFIC) 

QORAOX=FRAD* (ORAO(IFTC)+(QRAO(IFTC+1)-ORAD(IFTC))*TFTIC) 
MAX HEATING RATES ANO TIME 

IF(CCONX.LT.QCONM) GO TO 320 

OQCONM=OCDNX 

TCONM=T 

IF(QRADX.LT.QRADM) GD TD 325 

QRAOM=QRAOX 

TRAOM=T 


232 


QaAaANQANAAND 


aaan 


325 IF((QCONX+QRAOX).LT.OTM) GO TO 330 
OTM=OCONX +ORADX 
TOTM=T 
WRITE(20,328) 

328 FORMAT(’ TIME STEP CALC’//) 


-eFf - fF ew ereewreereereerrerenereweeereererereereereseeraeeeweeeeeewrereerereeeeerereereweeeeeeeeeerwe ewe we @ = = «= 


WALL ENTHALPY VS. WALL TEMPERATURE 


330 IF(TX2(1).GE.TW(I117).ANO.TW(1).LT.TW(I117+1)) GO TO 345 
IF(TX2(1).GE.Tw(I17+1)) GO TO 335 
Lig-117-4 
IF(I17.GE.1) GO TO 330 
GO To 340 
335 It7=1l17+14 
IF(I17+1.LE.NHP) GO TO 330 
340 T=TLIM 
WRITE(20,25) TX2(1) 
GO TO 645 
345 HW=HX(117)+(HX(117+1)-HX(117))/(TWC1174+1)-TW(117)) 
1 *(TX2(1)-TW(117)) 
WRITE(20,350) 
350 FORMAT(’ WALL ENTHALPY CALC’//) 
TOTAL ENTHALPY 
HT X=H3O00+VELX * *2/50056 .5 
WRITE(20,355) 
355 FORMAT(’ TOTAL ENTHALPY CALC’//) 


-eweeeeweewreweeerewereereereeeewe ere errerenwerseeweeeeeweeeweerereerewereeeerereerererereereweeee | = 


COMPUTE HEAT IN QUE TO SURFACE COMBUSTION 


XMOO=XMDC 
CALL OXIOAT(XMOO,QOXxIO) 


EKRKEK EEK EK EE 


COMPUTE Q-HOT WALL 


Z1=(HTX-HW)/(HTX-H300) 
Peed tO.) 2120. 
TE (74.G1. 4.) 2121. 
QHW=Z 1* OCONX 
QBLOCK=0. 
OWB = QHW 
YMT=(XMOG(1)+XMDC)/3600. 
XM2=XMP/(1.-((XMOC/3600. )*YMT)*(1.-XMP/XMC)) 
BETA=BETAL 
FBLOW=FBLOWL 

385 IF(T.LT.TIN(IBC)) GO TO 395 
IF(T.LE.TOUT(IBC)) GO TO 390 
IBC=IBC+1 
GO TO 385 

390 FBLOW=FBLOWT 
BETA=BETAT 

395 ALPHA=FBLOW*(28.97/XM2)**BETA 
IF(OHW.EO.0.) BCOF=O. 
XAB=ALPHA* BCOF 
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GO TO 397 

396 BCOF=YMT*(HTX-HW)/OHW 
XAB=ALPHA *BCOF 

397 IF(XAB.LE.O.) GO TO 400 
IF(XAB.GT.40.) XAB=40. 
G=XAB/(EXP(XAB)-1.) 
IF(G.GT.1.) G21. 
OWB =G*QHW 
QBLOCK = QHW -QWB 


(a WRITE(20, 403) 
C 403 FORMAT(’ Q-HOT WALL CALC’//) 


400 CONTINUE 
C 
C NET HEAT INTO FRONT SURFACE 
C 


IF(TX2(1).GT.TCHAR) IEM=2 
IF(IEM.EQ.2) GO TO 405 
EMX=EMV 
GO TO 410 

405 EMX=EMC 

410 QRERAG=(4.8333E-13)*FV*EMx*(TX2CINT)**4-TVt*4) 
QSUBL =SGOTS *HSUB*RHOS/3600. 
QSIO02=XxXMSG(1)*HSI02/3600. 
OIN=QRAOX+QHW+00X IO -QBLOCK -QRERAO-QSUBL+0SIO2 
TQHW=TOHW+( (OHW14+QHW)/2. )*OTS 
OHW1=QHW 
TQOX 10=TOQOXI0+((QOxIG1+#00XI0)/2.)*0TS 
OOXxIG1=Q0xIO 
TOBLOC=TOBLOC+((QBLOC1+QBLOCK)/2.)*OTS 
OBLOC1=QBLOCK 
TORERA=TORERA+( (QRERA1+QRERAD)/2.)*OTS 
QRERA1=QRERAO 
TOSUBL=TOSUBL+( (QSUBL 1+QSUBL)/2.)*OTS 
QSUBL 1=QSUBL 
TORAOX=TQRAOX+( (QRAGX 1+QRAOX)/2.)*OTS 
QRAGX 1=QRAOX 
TOIN=TORAGX+TQHW+TQOXID- TOBLGC-TOQRERA-TQSUBL 
OIN=QIN*3600. 
WRITE(20, 413) 

413 FORMAT(’ HEAT - FRONT SURFACE’//) 


CHECK FOR FRONT SURFACE RECESSION (CHAR LAYER REMOVAL ) 


OELH=HTX-HW 
OELSS=XMSG(1)-xXMSG(2) 
RHOST=RHOS+GEN( 1)-RHOC 
CALL RECESS(XMOC,XLOST,TREC,OT,RHOC,TS,SR,1TX2(1),NREC,NRS, ERR5,SXO 
1,SOO0T ,OMP ,SPRINT,RHOST,QWB,OELH) 

C eeeeeaKKEeEEK 
CALL SUBL(TX2(1),PLPT,SOOTS,TS,SR,ALTX,NREC, SOOT, VELX,PL1,PL,PT2, 
1TSUBX , TSUBL ) 


C *€#eKRR ERE KR EY 

Cora eee Gomes: ose => ey ) 
c WRITE(20,414) 

C 414 FORMAT(’ RECESS CALLEO, SUBL CALLEO’//) 

C Pee eer a a Ee eS ee Sooo Ce oe ees 
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415 


420 


425 


430 


435 
440 


445 
450 


455 


460 


465 


470 
475 


IF(TX2(1).LT.TSUBL) GO TO 415 
XMOS=SQOTS 

SOOTS=SO0TS/RHOST 

GO TO 420 

XMQS=0.0 

SOOTS=0.0 

XLOSTS=SOOTS *OT 

IF(ERRS) 465,465,695 
IF(ICUT.GT.10) GO TO 465 

XLOST=0. 

IF(T+OTS.LT.TCOFF(ICUT)) GO TO 465 
VLV=VLV-XRECES(ICUT)/12. 
OXV=VLV/(XNP-1. ) 

XVNEW(1)=0. 

DO 430 I=2,NP 

XVNEW(I)=XVNEW(I- 1)+DXV 
OL1(1)=SURTEM 

00 450 J=1,NNPM 
XTEST=XVNEW(J)+XRECES(ICUT)/12. 

OO 435 I=1,NNPM 

IF(XV(I).LE. XTEST .ANO. XTEST .LT.xV(I+1)) GO TO 440 
CONTINUE 

IF(J.EQ.1) GO TO 445 
OL1(J)=TX2(1)+(TX2(14+1)-TX2(1))/(xV(14+1)-xV(1I))*( xTEST -xv(T)) 
OL2(JU)=TUL2(I )+(TUL2(I+1)-TUL2(1))/OX *(XTEST-XV(I)) 
RL1(J)=RHO(I )+#(RHO(I+1)-RHO(I))/(XV(I+1)-xV( 1) )*(XTEST-XV(I)) 
OO 455 I=1,NNPM 

RHO(I)=RL1(1) 

THETA(I)=(RHO(I )-RHOC)/(RHOV-RHOC) 
TUL2(I)=OL2(I) 

TX2(1)=DL1(1) 

OO 4GO I=1,NP 

XV(I)=XVNEW(CI ) 
XLOST=XRECES(ICUT)/12. 

ICUT=ICUT+1 

GO TO 475 

VLV=VLV-XLOST-XLOSTS 
SOGTT=SOOT+SO0OTS 

OXV=VLV/(XNP-1.0) 

XV(1)}=0.0 

OO 470 I=2,NP 

XV(I)=XV(I-1)+0XV 

CONT INUE 

XLSTV=XLSTV#XLOST+XLOSTS 
XLSTI=xXLSTV*12. 

OXOLO =0x 

DX=OXV 

0O 485 I=1,50 

IF(THETA(I).LE..01) GO TO 480 
DEN(I )=RHO(I) 

GO TO 485 

OEN(I)=RHA(I) 

CONTINUE 

CALL COEFF(NPFT, SMCOKE ,RHO7,2500. ,OEN) 
Kee KER KE EE 

WRITE(20, 487) 

FORMAT(’ COEFF CALLED’//) 


—-|e weeeeeeeeeeeeeeeeweeeeereeeeeeewereeweeweeeeeeeeeewzewrzerewrwrwrew ees 2s fF & = 


IF(IERROR.EQ.1) GO TO 200 


255 


IF(ERR2.NE.0.) GO TO 695 
IF(QCON(1).GE.0.) GD TD 495 
NPFTT=NPFT- 1 
DO 490 I=1,NPFIT 
J=I+1 
A(I)=A(J) 
B(I)=B(U) 
C(I)=c(J) 
490 D(I)=D(V) 
GO TD 500 
495 NPFTT=NPFT 
500 CALL SWUFT(A,8,C,D,TY,NPFTT ,OMP) 


C +r+ 747474974 4 

C ase emeoecnnsnaoce eos cee sass aesuee sand soa a wo aia os = 6 oa eo oe SSeS eee eee 
Cc WRITE(20,510) 

C 510 FORMAT(’ SWUFT CALLED’//) 

C Se ee ee eee ee ee So SO Sea Soo eee oOo eo oe oe 


IF(QCDN(1).GE.0.) GO TO 520 
DDB 515 [=1,NPFTT 
J=NPFTT+2-1 
515 TY(J)=TY(JU-1) 
TY(1)=SURTEM 
520 DO 525 I=1,NP 
TX1(1)=TX2(1) 
TX2(1)=TY(I) 
525 CONTINUE 
IF(TX2(1).LT.TFNM) GD TD 527 
TFNM=TX2(1) 
TIFNM=T+DTS 
527 IF(TX2(NP).LT.TLNM) GO TO 528 
TLNM=TX2(NP) 
TILNM=T+DTS 
528 IF(MMM.GT.1) GO TD 530 
CALL ABLATE(XV, JEND) 


Cc eHRKEKEKEH 


c WRITE(20,529) 
C 529 FORMAT(’ ABLATE CALLED’//) 


GO TD 560 
530 LYZ=1 
DXM=DXV/XMMM 
DD 540 I=1,NNPM 
X=0. 
DD 535 J=1,MMM 
TXAR(LYZ)=TX2(1)+(7X2(1+1)-TX2(1))/OxXV*X 
X=X4+DXM 
535 LtyZ=LY2+1 
530 CONTINUE 
TXAR(LYZ)=TX2(NP) 
IF(DMP) 550,550,545 
545 WRITE(20,35) (TXAR(J),J=1,NPSD) 
550 CALL ABL2(TUL2R,TXAR.NPSD NP, RHOC,RHOV,SN.SDOT,DT,DXM,AP.XB,CA, 
1XMDG, THETA,RHO,MMM,OMP, TABL, TABL2. JEND,IENTER) 


(e KEK KKEEKEH ESE 

(e a ee re a a yee eo eo ee Sn SS ee 
Cc WRITE( 20,553) 

C 553 FDRMAT(’ ABL2 CALLED’//) 

C eee ee oe a eee eS OO Se oo ee ooo oOo oe mr oe see 


IFCIENTER.LE.O) GO TO SEO 
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CALL ABL2(TUL3R, TXAR,NPSO,NP, RHOCF ,RHOC,SN2,SOOT,OT,OXM,AP2,XB2, 
1CA2,XMSG, THETA2,RHO7,MMM,OMP, TABL2, OUMYT ,NOTHNG, IENTER) 


C Kee eeeeee t 


C eenreer eee eee eee eee ewe eee ewww ewe wee wee www www ew ew ee ee eee eee wee te ew ewww ew ew we 
C WRITE(20, 5570} 

C 557 FORMAT(’ ABL2 CALLEO AGAIN‘//) 

C a 


560 CALL COKE(RHA,TX2,XMOG,OT,OX,NP,SOOT,OMP, XMCOKE , RHOV, SMCOKE ) 


C EXEC ERETE 


c Seep ose pS See spe eon rpeSeeoe op oo Se Oe oo Oop OOD Core BOOS OO eB oe eo ooo oO oOo SB Ooo ose aoe 
C WRITE(20, 562) 
C 562 FORMAT(’ COKE CALLEO’//) 
C Seoeonpcmnoosr ep eos ees oosee ene Sse op eee Se eee seo Ooo eo oo oC e oom Sooo oo Soo soe oor ass 
XMOT=XMOG( 1)+XMOC 
IF(VELX.LE.2000..ANO.VELX.GT.1100.) PL=PLPT 
TFCVELX. LE. 1100.) (PUHt. 
IF(IPRESS.NE.1) GO TO 565 
CALL OPOX(TX2,RHO,RHOV,RHOC,PL,OX,XMOG, JENO,NP) 
C **¥ eee 4 € 4 * 
C SSS SSS OS 6 So or ee eee ee ee ee 
C WRITE(20,563) 
C 563 FORMAT(’ OPOX CALLEO’//) 
C =e eee Sees Se ee aS See eee oe ee iy a eo ee oe 


GO TO 575 

565 00 570 I=1,NP 

570 P(I)=PL* 14.6959 

575 LT=NP+1 
00 590 I=1,NMB 
LLT=NPM(I) 
IF(I.£€0.1) GO TO 580 
IF(GAPX(I-1).£0.0.) GO TO 580 
KKT=1 
GO TO 585 

580 KKT=2 

585 00 590 J=KKT,LLT 
TX2T7G). 1 J=TYC(LT) 
LT=LT+1 

590 CONTINUE 
00 605 I=1,NMB 
IF(I.£Q0.1) GO TO 595 
IF(GAPX(I-1).E£0.0.) GO TO 600 
GO TO 605 

595 TX2T(1,1)=TY(NP) 
GO TO 605 

600 LX=NPM(I-1) 
TX27T0 1, PY=TX2T( LX, 1-1) 

605 CONTINUE 
CALL ISOTHM(XV,TX2,XISOTH(1).NP,Y3,11060,L1060) 


C RPAREDEARADSD 

Coe ne en on a a re meee eter rrr nemesis 

C WRITE(20,607) 

C 607 FORMAT(’ ISOTHM CALLED’//) 

GC ee eae etaa ota Sie a ales = 6 so aa = aaa a ole 6 sa = aa aes eee = — «es a6 o's = = 
CALL ISOTHM(XV,TX2,XISOTH(2),NP,Y4,11460,L1460) 

C KeeKEKREEEE SE 

(G: em eee eee ee ewe nw ww ww wwe ewe ere em ew wwe een eee were ee ee eee eee eet eee ee eee ee 

C WRITE(20,608 ) 

C 608 FORMAT(’ ISOTHM CALLEO AGAIN’//) 

(& ee alee ate eelele es oe eine clea Sloe ae a ee ecw ws ees em wee wee een ee we mace a Sees eee = 


¥o='orle,+xLor 1 


209, 


QO Qe QiG@ i@r@@eG@ G) 


QLOarq 


Y4=¥4*12.4XLSTI 

IF(Y4.LT.XMAX2) GO TO 610 

XMAX2=Y4 

TXMAX2=T 
610 IF(Y3.LT.XMAXI) GO TO 615 

XMAXI=Y3 

TXMAX=T 
NOTE NPLOT WILL ALWAYS <=0O, WHICH DIRECTS YOU TO LINE 620 
615 IF(NPLOT.LE.O) GO TO 620 

IF(T.LT.TIME(IPLOT)) GO TO 620 

IPLOT=IPLOT+1 

CALL ISOTHM(XV,THETA,XISOTH(3),NP,Y5,IP1,LP1) 


*RETYTEREEY EY 


weweweewerwreeee wzeweerwzeerwrerwererwzee weer eweewerrnrerwzeererwzeerwzeree w2eereerweeererwrewzeewrerwte ewzeereerz eae weeeweneweereweetew ae = = 


WRITE(20.617) 

617 FORMAT(’ ISOTHM CALLED’//) 
CALL ISOTHM( XV, THETA, XISOTH(4),.NP,Y6,IP9,LP9) 
EKER ECHKEHE*EO *€ 


—-e =e w@eeeeeeeeweeeseeweeeeeeereeeeeeeeeeereenenewe eweewreeeeeweeeeeeeeeeeeeeeeeeeeee «= = = 


WRITE( 20,618) 
618 FORMAT(’ ISOTHM CALLEO AGAIN’ //) 
Y¥5=¥5*12.+#XLSTI 
Y6=Y6*12.+XLSTI 
CALL BETCXTCLF,TTCL,NXTCL,XV.TX2,NP,.XLSTV, IBGN) 


ee ERY YK 


—— |e Ne Me Me ew we ew ew eB eB Be ew ee ee ee Ke eK ee hw He ew ewe ew we ewe ween wx eeweereeeeereeee wee eee eeeeeeweeieeeerece 


WRITE(20,619) 
619 FORMAT(’ BET CALLEQ’//) 


eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeweewteeewrewrenretwewewrwr weeweweewreweewenr ete ewe 


OO NOT CALL THIS SUBROUTINE (TPLOT) 


CALL TPLOT(T,XLSTI,TX2,Y3,Y4,Y5, Y6, SOQOTT, OCONX , ORAQOX , OHW, OWB, 
| XMDT,TTCL,NP,NPPCAS) 
620 CONTINUE 
LM=NP+ 1 
DO 625 I=1,NMB 
LZ=NPM(1) 
DO 625 J=1,L2 
TX2(LM)=TX2T(U,I) 
LM=LM+1 
625 CONTINUE 
00 635 I=2,NPTT 
IF(T-TTABLE(I)) 630,630.635 
630 OTS=OELTT(I-1) 
IPRCT=IPRC(I-1) 
OT=OELTT(I-1)/3600.0 
GO TO 640 
635 CONTINUE 
OTS=OELTT(NPTT) 
IPRCT=IPRC(NPTT ) 
OT=OELTT(NPTT)/3600.0 
640 ICT=ICT+1 


PRINT OUT 


645 IF(T.EQ.0.) GO TO 650 
IF((T+OTS-TLIM).GT.O.) GO TO 650 
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650 


655 


657 


660 
665 


675 


680 


685 


IF(IPRCT-ICT) 650,650,665 

CONTINUE 

QINP=QIN/3600. 

00 655 I=1,NPF 

Teo Cr y= 1x 201 )-460. 

XIESOTH( 1)=XISOTH( 1)-460. 
XISOTH(2)=XISOTH(2)-460. 
PLPSI=PL*2116.217/144. 

IF(PLPTX.GT.O.) GO TO 657 
WX=FWX(ILFTC)+(FWXCIFTC#+1)-FWX(LFTC))*TFIC 
AOTX=AOT(IFTC)+(AOT(IFTC+1)-AOT(IFTC))*TFTC 
WRITE(20,40) T,OTS.FCONV, FRAD, VELX ,QCONX , QRADX , AOTX ,.XMOG(1),XMOC, 
{ XMOT ,XLSTI,SOOTT,XMDS 

WRITE(20,45) QINP,QRERAD, TOSUBL, ALPHA, OHW, OSIO2, TOOXIO, BCOF ,QWB, 
{ TOQIN, TORERA,G, OBLOCK, TQHW,OELH,PLPSI,QSUBL, TORAOX, 


fe HTX,PLPT ,QOXIO, TOBLOC, RHOST, wx 


IF(SPRINT.LT.1.)GO TO 665 
IF(SPRINT.EQ.1.) GO TO 660 
WRITE(20,50) 

GO TO 665 

WRITE(20,55) 

T=T+OTS 

IF((T-OTS).€0.0.) GO TO 675 
IF((T-TLIM).GT.0O.) GO TO 675 
IF(IPRCT-ICT) 675,675,690 
WRITE(20,60) T 

KKV=KKV+ 1 

00 680 I=1.NP 
XVPNT(I)=XVC1I)*12.+XLSTI 
WRITE(20,65) (XVPNT(L),TX2(1L),OEN(I), THETA(I),XMOG(I),XMCDKE(I), 


1 SMCOKE(I),P(I),I=1,NP) 


IJU=NP+ 1 
WRITE(20,70) (TX2(1I),I=IU,NPF) 


eo, e weewewrenrzewrwreeeeeewtweeeeereewrweereeweeewzewrwz zy ewrwewreeewee weeeweeweweweerweweweeaewe 2 


WRITE(20, 682) 
FORMAT(’ BEFORE BIG MULTI CALL‘//) 


/"-e eeeeeeseseweereeeeeeeeeeeeeeeeeeeeeeeweweeeeweweeeweereeseeeeewee ee ee eee 


CALL BET(XTCLF,TTCL,NXTCL,XV,TX2,NP,XLSTV, IBGN ) 


EKEEHEREE 

CALL RITE(XTCL,TTCL,NXTCL,IB8GN) 

eeveguqget¥ 

CALL ISOTHM(XV,THETA.XISOTH(3).NP.Y5.IP1.LP1) 


EOEEHEEREH ESE 


CALL ISOTHM(XV, THETA, XISOTH(4),NP,Y6,IP9,LP9) 


EEE EHEEERE* 


ewer ewe ewe wewnmwereenwz enn ewzyeernwnewe ee eee eweeereeereereereereeeeeewewwewre—- e e- e ewer ee wsereeeweeewe= 


WRITE(20,683) 
FORMAT(’ AFTER BIG MULTI CALL’//) 


~—-~8fes ee were eweeeeewye we eee ee es ee eeeeewz ereeeewzenwryenwrnr fF we Se kt ws ereereereereereereeeeeeeeee see 


Y¥5=Y¥5*12.+XLSTI 
Y6=Y6*12.+XLSTI 

WRITE(20,75) XISOTH(1),XMAXI,XISOTH(2).XMAX2,XISOTH(1).Y3, 

1 XISOTH(3),Y5,XISOTH(2),Y4,XISOTH(4), Y6 
DELOSS=Y6-(RHOC/RHOV )*(Y5-XLSTI )-( (RHOC+RHOV)/(2. *RHOV))*(Y6-Y5) 
EQUTH=(VL*12.)-OELOSS 

WRITE(20,80) OELOSS,EQUTH 

DO 685 I=1,NPF 

TX2(I )=TX2(1 )+460. 

XI SOTH( 1 )=XISOTH( 1 )+460. 

XISOTH(2 )=XISOTH(2 )+460. 


2329 


IGT 0 
690 CONTINUE 
SOCONX =QCONX 
IF(T-TLIM) 300,300,695 
695 VL=VL*12. 
BL=BL*12. 
OO 700 I=1,14 
700 TTCL(1I)=TTCL(I )+460. 
Gc IF(NPLOT.GT.0O) CALL TPLOT(T-OTS,XLSTI,1TX2,¥3.Y4,Y5,Y6,SOOTT,OQCONX, 
c { QRAOX , OHW, QWB , XMOT, TTCL,NP,NPPCAS ) 
NCASE=NCASE+1 


TX2(NP )=TX2(NP)-460. 
XISOTH( 1)=XISOTH(1)-460. 
XISOTH(2)=XISOTH(2 )-460. 
TLNM=TLNM- 460. 
TFNM=TFNM-460. 
WRITE(20,85) NCASE 
WRITE(20,90) LINE1,LINE2,LINE3 

C FORTRAN FUNCTION AVAILABLE AT ORAPER 
IUSEO = ITIME(IOUM) 


C eek eereeecee’ 


C acne en et wea wee ese ee enw ee me em nee ee ewe ew ew we ew we we Ss a8 ow ee eee ole ee eee alee ee ee eee 
C WRITE(20, 702) 

C 702 FORMAT(’ ITIME CALLEO’//) 

C eee nwe neon ewneneen een een ewe eee ewe enw ee ee ewe ewww eww ewe wee ewww ewe ew ewe ew ew ew ew ewe eww ewe ew eee 


SEC=IUSEO/ 100. 
IF(TEMPW.GT.-1.0E6) GO TO 705 
WRITE(20,95) VL.NP,VEL(1),,SEC,NPPCAS 
GO TO 710 
705 WRITE{(20,100) VL.NP,VEL(1),TEMPW,SEC,NPPCAS 
710 WRITE(20,105) OQCONT(NTRAPT),QTCL,QRAOT(NTRAPT),QTRL, 

*QTOTAL(NTRAPT),QTCRL 
WRITE(20,110) QCMAX,QCMAXT , ORMAX ,QORMAXT ,QCANR,QCANRT 
WRITE(20,115) QCONM, TCONM, QRAOM, TRAOM,OTM, TOQTM 
WRITE( 20,120) TOHW, TORAOX , TORERA, TOBLOC, TOSUBL, TOIN, TOQQXID 
WRITE(20,125) XISOTH(1),XMAXI,XISOTH(1),TXMAX,XISOTH(2),XMAX2, 
1XISOTH(2), TXMAX2,TFNM, TIFNM, TLNM, TILNM, TX2(NP),TLIM 
WRITE( 20,130) XLSTI 

C WRITE(16) IS CUTOUT ELIMINATING SUMARRY CASE 

C WRITE( 16) (H1(I),I1=1,12), (HEAO2(1I),I=1,12), (HEAOS(I),I1=1,12), (H3(I 

C 1),1=1,12),VL,NP,VEL(1),IMIN, ISEC,NPPCAS,QCONT(NTRAPT),QTCL, 

C 2QRAOT(NTRAPT) ,QTRL,QTOTAL(NTRAPT ),OTCRL ,QCMAX,QOCMAXT, 

c J3OQRMAX , ORMAXT , OCANR, OCANRT , QCONM, TCONM, QRAOM, TRAOM, QTM, TQTM, 

G 4X ISOTH(1),XMAXI,TXMAX,XISOTH(2),XMAX2,TXMAX2,TLNM, TILNM, TFNM, 

C STX2(NP),TLIM, XLSTI, TEMPW, TOHW. TORAOX, TORERA,TOBLOC.TQSUBL, 

GC 

C 


6TOIN. TOOXIO 


XISOTH(1)=XISOTH(1)+460. 
XISOTH(2)=XISOTH(2 )+460. 
NOTE NPLOT WILL ALWAYS BE <=0. WHICH OITRECTS YOU TO 200-RESET 


IF (NPLOT.LE.O) GO TO 200 


oO 


IN VIEW OF THE ABOVE COMMENT, THE FOLOWING SEQUENCE OF STEPS 
IS BEING CUT OUT SINCE THEY OEAL WITH PLOTTING ANO THEY ARE 
A SOURCE OF VS FORTRAN COMPILER ERROR 


NPCAS(NCPLTC )=NPPCAS 
NCPLTC=NCPLTC+1 


NAAN ANAOD 


240 


Ct? Cy OG OO Oy Gi) OC) Gory GG) Gh ae 


AAAAAAN 


GC) One 


IF(NCPLTC.GT.NCPLOT) GO TO 715 
GO TD 200 
715 ENOFILE 10 
REWIND 10 
WRITE(20,135) (I1,NPCAS(1),1=1,NCPLOT) 
DD 720 I=1,NCPLOT 


DO NOT CALL THIS SUBROUTINE (MORE) 
720 CALL MDRE(NPCAS(1),DXPLOT) 
DD NOT CALL THIS SUBROUTINE (CCP) 


CALL CCP(6) 
GD TD 200 


725 ENDFILE 16 
REWIND 16 
725 DD 740 K=1,NCASE 
READ (16) (H1(1),1=1,12), (HEAD2(1),1=1,12), (HEAD3(L),1=1,12),(H3(1 
1),1=1,12),VL,NP,VEL(1),IMIN, ISEC,NPPCAS,QCONT(NTRAPT),QTCL, 
2ORADT(NTRAPT),OTRL,QTOTAL(NTRAPT),QTCRL,OCMAX,QCMAXT, 
SOQRMAX ,.QORMAXT,QCANR, QCANRT, QCONM, TCONM, ORAOM, TRADM, QTM, TOTM, 
4X1SOTH(1),xXMAXI,TXMAX,XISOTH(2),XMAX2, TXMAX2, TLNM, TILNM, TFENM, 
STX2(NP),TLIM,XLSTI,TEMPW, TQHW, TORADX, TORERA, TOBLOC, TQSUBL, 
6TQIN, TODXID 
WRITE(20,85) K 
CUTOUT HEADINGS 
WRITE(20,90) (H1(1), 121,12), (HEAD2(1),1=1,12),(HEAD3(I),1=1,12), ( 
1H3(1),1=1, 12) 
IF(TEMPW.GT.-1.0E6) GD TD 730 
WRITE(20,95) VL,NP,VEL(1),SEC,NPPCAS 
GD TO 735 
730 WRITE(20,100) VL,NP,VEL(1),TEMPW,SEC,NPPCAS 
735 WRITE(20, 105) QCONT(NTRAPT),QTCL,QRADT(NTRAPT),QTRL,QTOTAL(NTRAPT ) 
* OTCRL 
WRITE(20,110) QCMAX,QCMAXT,QRMAX,QRMAXT,OQCANR,QCANRT 
WRITE(20, 115) QCONM, TCONM, QRAOM, TRADM,QTM, TOQTM 
WRITE(20, 120) TOHW, TORADX, TORERA, TOBLDC, TQSUBL,TOIN, TODXID 
WRITE(20, 125) XISOTH(1),XMAXI,XISOTH(1),TXMAX,XISOTH(2),XMAX2, 
IXISDTH(2),TXMAX2,TFNM, TIFNM, TLNM, TILNM, TX2(NP),TLIM 
740 WRITE(20,130) xLSTI 
REWIND 16 
750 STOP 
END 
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BLDCK DATA MAINDA 
THIS DATA STATEMENT ASSIGNS MANY PARAMETERS WHICH TEND TD REMAIN 
CONSTANT OURING VARIOUS CDMPUTER RUNS. ALL THE PRDPERTIES FOR THE 
BACKUP MATERIALS ARE SPECIFIEO IN THE STATEMENT. THE CONOUCTIVITY 
ANO SPECIFIC HEAT OF THE VIRGIN ANO CHAR MATERIAL ARE ALSO ASSIGNED 
HERE. NOTE THAT THE VALUES CURRENTLY IN THIS STATEMENT ARE FDR 
THE MATERIAL FIREX 2373. ALSD NOTE THAT THE CONOUCTIVITY HAS BEEN 
ALTERED FDR THE VIRGIN MATERIAL TD REFLECT THE PHENOMENA OF INTU- 
MESCENCE WHICH FIREX EXHIBITS WHEN EXPLOSED TO LOW HEAT FLUXES. 


eee eee ewvreeee eee eee ew ewe ew eweeceevrereesweeerenee ewe ee eewvwereewenwrwvweertsweewereereenerweweenwreewtewee = 


THE BACKUP MATERIALS ARE THREE 1.0 INCH AIR GAPS 


"ewe eeeeeeeeeewtwweereswsweeweeweeeseveeeetreerweeeetnrenwwvweeeereenwrwre ete eweweewenereweeeweeweeeee@w @&= = = 


COMMON/YYZY/ QSIC(50), RHDCF, SN2, XB2, CA2, HV2 

COMMON /ABPRDP/ RHD(50) 

COMMON /BACKUP/ XNPM(12),RHOBxX(12),xXBM(12),EMBB(12),EMFB( 12) 

{ . NKPB(12),NCPB(12),TXK(20, 12),xK(20, 12), TCP(20, 12),NPM( 12) 
2 , CPX(20,12),GAPX(12),FTEST(12),BTEST(12),H(12),xXKB(10, 12) 
3 , CPB(10,12),0xB( 12) 

COMMON /TEMPS/ TEMOI(200),17X1(50),7TX2( 200). TX2T(10, 12), TUL1(50) 


{ . TUL2(50).TY( 200), TEMPI.TXO. SURTEM 

COMMON /CDEFFS/ A(200),B(200),C(200),0(200),AB( 10, 12),BB(10, 12) 
{ . CB(10,12),0B8(10, 12),S5B( 10, 12),RB1{10,12),RB2(10,12),R(50) 
2 » §$(50), INT 

COMMON /ABLATS/ XMDG(50),TABL,TCHAR, RHOV,RHDC, TREC, XLDST,SDOTDS 
{ SOOT, xXMOC,XMT 


CDMMDN /INDIX/ NP,NP2,IFPT,NPBS,NPF,NMB 

COMMON /TIMES/ TINT,TLIM,T,DT 

COMMON /FNTBCK/ FBLOW, EMV, EMC,H300, TEST2, TENV, QIN, HENV, FENV 

{ , OLOSS,DHC,HXX(12),HxX(50), TW(50) 

COMMON /HSPARA/ Dx, TL,VL,BL,OMP,VPT 

COMMON /FIXPRO/ CHARK,CHARC,ABLK,ABLC 

COMMON /TURBU/ WX,RTR,PLPT, SHAPEF 

COMMON /TRAJ/ TIME(300),QCONC( 300) ,ORAD(300),VEL(300),ALT(300) 
1 , QCON(300) ,NTRAPT,FCONV,FRAD 

COMMON /FIXERS/ 11,12,13,14,15,I16 

COMMON /JUNK/ ERR1,ERR2,ERR3,ERR4 

COMMON /INPUTS/ NTURBT,MMM,LAST, ITHIN, TFACT, TSUBL, IPRESS,NREAD 
RHOS ,XMWG, TABL2,H1( 12) ,HEAO2(12),HEAD3(12),H3(12),DXPLDT 
FRBLDWL,FBLDWT,FFLAG.FV, TTABLE(20),OELTT(20), IPRC(20) 
NPTT,1TS(50),S5R(50) ,QCONX,QRADX,NHP,NPR,NREC,RTEST,SRM1 
. SRM2,SRB1,SRB2,KLLL,TV,PLPTX 

COMMON /ARRH/ THETA(50),AP,XB,SN,CA 

CDMMDN /PRES/ P(50),ALFAV,ALFAC,BETAV,BETAC,2Z 

COMMON /PLTVAR/ NCPLTC,NCPLOT,NPLOT,NPCAS(25),NPPCAS,TTCL(15) 


&Q@QN— 


{ , TTCLPL(15),xTCLF(15),XTCL( 15), NXTCL,XISDTH(4),¥3,¥4,¥5,Y6 
2 , XV(50),XVPNT(50),XVT(50),XLSTI, XMDT 
COMMON/TABS/ TNOOE(50),D0CHAR(50), ITABLE(9, 10), ITAB(9,6) 
1 . TABLES(500), ICHAR1, ICHAR2, ICHAR3, IREAC1, IREAC2 
2 . IVIRG1, IVIRG2,TREAD, IERROR, ITABND, AINPUT(9),W(50) 
3 . ISTART, IENO, ANSWR(350) 


COMMON/RESCUT/ TCOFF(10),XRECES(10),XVNEW(50) 
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COMMON /TRBATS/ PLA(300), TLA(300),HLA(300) , VLA( 300) , TTA(300) 
COMMON /FACTRS/ AOT(300),FC(300),FR{300) , FPLPT(300),SOVR,PHI, 


1 FWX(300),WX1,WX2 
COMMON /OREF/ OQCONT(300), ORAOT (300) ,QTOTAL(300),QTCL,OTRL,OTCRL, 
1 QCMAX , OCMAXT, ORMAX , ORMAXT , OCANR, OCANRT 


ENTHALPY TABLE 
ONTAUCHX CI), lee= 1512 )7 O22) 340-9. 449.7 617.2, 7941.0, 978. . 1113... 
11200., 1300. ,1400.,1500., 1600., 1700. ,1800.,1900., 2000. ,2100., 
2 2200. ,2300. ,2400. ,2500. ,2600., 2700., 2800. ,2900. ,3000. .3100., 
3 3200. ,3300. ,3400., 3500., 3600. ,3700. ,3800. .3900. , 4000. ,4100., 
4 4200., 4300., 4400.,4500., 4600./, 

TEMPERATURE TABLE CORRESPONOING TO ENTHALPY TABLE 
5 (TW(I),I =1,42) / 0.,1400., 1800., 2400. ,3000. ,3600. ,4000., 
6 4224., 4486., 4723.,49396.,5127., 5299. ,5454. 5596. ,5728. ,5851., 
7 5968., 6078., 6186., 6291.,6395., 6497., 6597., 6699., 6805., 
8 6918., 7050., 7175., 7350., 7480., 7630., 7800., 7970. ,8120., 
9 8300., 8500. ,8700. ,8850. , 9000. ,9150. ,9270./ 


502 BEST FIT PROPERTIES 
99998 - K(C) 99997 - CP(C) 99996 - K(V) 99995 - CP(V) 


OATA (TABLES(I),1=1,84) /99998.,-1.E35,460.,760.,1460.,1860.. 


{ 2060. ,2660. ,2860. ,3710. , 3960. , 4260. , 4860. ,5010., 
2 5060. ,6000.,1.E35, .046, .046, .030, .030, .060, .060, .060, 
3 .060, .060, .060, .060, .060, .060, .060, .060, .060, 99997. , 
4 -1.€35,1460. .2460. .4960. .5460. .1.E35,.37..37, .412., 
5 .412,.46, .46,99996. .-1.E35,460. ,560. .660..760. ,860., 
6 1260.,1460.,1.E635,.199, .199,.199, .141,.083, .018, .018, 
4 .018, .018,99995. ,-1.£35,0.,560. ,660. ,760. , 860. ,960., 
8 LOGO mee aS 047... A747 AT 47 47. a7. AT, AT / 
OATA (ITAB(1,1I),1=1,6) /99998, 1,33,14,1,2/, 
{ (ITAB(2,1),1=1,6) /99997,34,46,4,1,2/, 
2 (ITAB(3.1),121,.6) /99996,47,65, 7,1,2/. 
3 (ITAB(4,1),1=1.6) /99995,66,84, 7,1,2/ 
OATA (AINPUT(I),1=1,9) /0.,0.,-99998. ,-99997. ,-99996. ,-99995., 
1 .5,180.,12000./, ITABNO /4/ 


TEMPERATURE VALUES FOR SURFACE RECESSION 
OATA(TS(I), I =1,3) / 0.0,2000.0, 4000. / 

SURFACE RECESSION VALUES 
OATA(SR(I),. I =1,.3) / 0.0,0.0,0.0/ 

NUMBER OF NOOES IN THE BACKUP MATERIAL 
DATA XNPM(1) / 3./,XNPM(2) / 3./,XNPM(3)/ 3./ 

NUMBER OF ENTRIES IN XK ANO CPX TABLES 
OATA NKPB(1) / 6/,NKPB(2) / 6/,NKPB(3)/ 6/, 
{ NCPB(1)/ 3/,NCPB(2)/ 3/,NCPB(3)/ 3/ 

THERMAL CONOUCTIVITY OF BACKUP MATERIALS/ TEMPERATURES OF XK’S 
OATA ((XK(E,JU),1=1,6).JU21.3) /.013, .016, .018, .025, .030, .041, 


fee iG O16. .018..025, .030,.041, 013. .016, -018. .025, .030, .041/ 
2 ((TXK(1,JU),1=1,6),U=1,3) /O.,560.,660. .960., 1260. , 1960., 
3 0. ,560. ,660. ,960.,1260.,1960., 
4 0.,560. ,660. ,960. , 1260. , 1960. / 


SPECIFIC HEAT OF BACKUP MATERIALS/ TEMPERATURES OF CPX’S 
MAT A(UCRX (1). 121.-3).J=1.3) 7.239. .248, .277,.239,.248..277, 
19990 .4248..277/ 
2 ((TCP(I,J),1=1,3),J=1,3) /O. .960.,1960., 
3 0.,960.,1960., 0.,960.,1960./ 
OENSITY OF NTH BACKUP MATERIAL 
OATA RHOBX(1)/ .071/,RHOBX(2)/ .071/.RHOBX(3)/ .071/ 
FILM COEFFICIENT/ WIOTH OF GAP/ MOOE OF HT ON FRONT ANO BACK SURFACES 


243 


C OF BACKUP MATERIALS (CONOUCTION ONLY IS ’0O’) 
OATA H(€1)/ 0.7. HQ2)7 027.) H(3))7 O27 


{ GAPX(1)/0./,GAPX(2)/0./,GAPX(3)/0./, 
2 FTEST(4) /O./7.FTEST(2) /0./ FIESI G3) ee 
3 BTEST(1)/ O./,.BIEST(21/ O./ BTESTCGIy on 


C THICKNESS OF NTH BACKUP/EMISSIVITY, FRONT + BACK/ISOTHERM TEMPERATURES 
DATA X8M(1)/ 4.000/,XBM(2)/ 1.000/.XBM(3)/ 14.000/, 
j EMFB(1)/ .65/,EMFB(2)/ .65/,EMFB(3)/ .65/, 
2 EMBB(1)/ .65/,EMB8B(2)/ .65/,EMBB(3)/ .65/ 
C ISOTHERM TEMPERATURES AND LOCATION OF PENETRATION 
OATA (XISOTH(I),1=1.4) / 660., 860., .1, .9/ 
ENO 
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Gra 
Gras 
C* * * 
Crt 
C*e** 
C*** 


52 


10 1 
106 


X 
ni 


IS S/R 
IS H/RTO 


ANS IS A/AO 
IREG IS AN ERROR FLAG 


WOOnANOAMNM AWN DOwWAARAW BW = 


SUBROUTINE MOLA(X,Y,ANS,IREG) 

DIMENSION A( 192) 

DATA (A(I), 121, 192)/50. ,50. ,4.,3.,1.,3.,3*0.,-.0032195384, . 149306 
18, .024543126, .58719964, - .018700624, - . 12679730, -.0047674354, .8893 
2236, ,00078285669.-—. 10835613, .56441762, .37036180,8.,4.,2°>,3.,-.04 
C89637S,. 13991988. -,27619670, .05 1828567, -, 12516611,. 17224281, .029 
639706, .052 193854, - .034404423, .0036351444, -. 18116469, .45279737, -. 
5798 7609 ,.33862799,-1.3483524,12.,4.,2.,2.,- -011243653, -. 50236486 
» -028778314, -.53050821, . 18734878, .24768639,4*0. , -.046173894, -1.71 
84643, =. 14120287, -2.0878614, .40400907 ,22.,8.,1.,1.,3*O., .27019527 
Web MO207S ..39d9C4C3,7 O., . C0099S3 13, . 129000346, 00. 52925 las lead *O. 
.- 36655108, .094702449, .43541615,7*0., 1.0622964, .085103548, 115. ,45 
Wet 2 On O39730 147. . 36502 141),.56 190424440. 11971267, .2139 
Niger OSS 1O24104.77 5227/0904, 00227969 1,219.4, ladda, layas.9°O., «976985 
95, .021635273, . 70806018, -.31509382, - .085627964, .028840452, -.01119 
6820, .49895458, - .28510509, .03 1935473, 1.8024960, -.11480061,550., 16 
Oma nce oO.) - = 7 2038 160, .46232249, .89758565,4*0.,.-. 207 28528, . 152 
Dood, -.O0c070945600,-.57 79503 1,.41716145,850., 160..1..1.,3°0.,-.647 
29837, .086476954, .98811448,7*0.,-.55654570, .058113803, 1500. ,500., 
2e 2 ee 9425086. 75 10041076, 56268965, 1.8977468 ;, 2.3715247 1.46999 
63,4*0.,-3.4056509, .38232701, .39935799 ,2.8341377,1.8337715/ 


CALL TESTH(X,Y,N124, IREG) 
KEE KRE KKK * 

IF(IREG-1)106, 106,52 

CALL COMMOL(A,N124,X,Y,Z) 
KEKKKEKEKSE EK * 

ANS =EXP(2.3025851*Z) 
IF(ANS-10.)106, 106, 101 
ANS=9.5 

RETURN 

END 
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cere W IS LOG(P/PO) 
Ce*x* X IS S/R 
C*** ANS IS H/RTO 
C*** TREG IS AN ERRDR FLAG 
Oe hake 
SUBRDUTINE MDLH(W,X,ANS, IREG) 
DIMENSION 0(9),B(211) 
DATA (D(1),1=1,9)/30.,34..40.,.46.,54.,.66.,75., 105. 12007 
DATA (B(I),I1=1, 163)/0..1..22..8..1..9..9%O.. 277059705 9ocrsca2-. 
33963361, -.00046574169, -.0040482061, -.01046 1855, -.0065518644, .008 
6161097, .053813741, .080578914, -.028200442 , - .086349097,31.,.3..1..3 
.,3°O., .27741402, .35801125, 1.4336617, - .0006 1979172, -.0021073096, - 
.0017536359, - .00030437482, .0048221948, .014964288, .011818412, .0188 
50715, .022652230,37.,5..1.,3.,3%0., .253998163, .52741571, 1.9710287, 
- 00082790533, - .0043204605, - .0092904068, -.010012783, - .00058422 190 
, .011305387, .022774231, .036940874, .095871923,43.,5.,1.,3.,3*0.,.2 
3024026, .29862855 ,2.2282276, .0000768 12456, - .0075547092, - .02265672 
0, -.020508249, .0019404355, - .0296002 15, - .035441447, .06 1998174, .003 
9092319,50.,.6.,1..3.,.3°0., .010634740, .23986720,2.5779744, -.000463 
44986, -.0028717178, -.0058313624, - .0041905119, .0015071233, .0076500 
227, .00996 12338, -.041780586, .022298730,60. ,8.,2.,2.,-.024144609, - 
14736552, -.081078878, -.25708774, .50948618,2.8427847 ,4*Q. , - .00669 
78058, - .055558702, -.037666146, -. 13441391, . 10779956,72..6.,1.,2.,3 
*O. ,-.90558436, -.060489230,3. 1096929, 4*0. ,.0037345606, .0094279706 
, .0059743084, -. 13780027, -.055336496,85. ,20.,2.,1., .0015831288, .00 
15210631, -.021064008, .069 168293, .81191642,3.2991879,7*0. ,-.010969 
054, .16785084,110.,10.,1.,3.,3*0.,-1.4885346, -.79483058/ 
DATA (B(1),1=164,211)/3.7508695 
,- .00086604638, - .0022915171, -.0046611641, -.0028679115, .0003396599 
4, .0044027079, -.0035649683, -.49030054, -.27883162,37.,5.,1.,3.,3*0 
., 44115113, .92686523, 1.9665635, .00058376 187, .0037858373, .0082954 
O80, .0038932475, -.010183489, - .033293369. -.023318402., . 13355665. .29 
776691,43..5.,1..3.,3*0., . 10701313, .45687535,2.3111196, -.00029903 
547, - .0012387784, -.0013394298, - 0010879150, .0021927292, .006726473 
3, .0062897753, -.017360511, .095276562/ 
IF(-6.-W)72,72,220 
72 IF(5.-W)220, 103, 103 
103 “IF(X%=137)220-110.116 
110 IF(X-120. )114, 114,220 
114-0 le=3 
DO 137 K=1,9 
IF(X-D(K))141, 141, 133 
133 L=L+19 
137 CONTINUE 
141 IF(t-41)172, 146, 153 
146 IF(W+.2)172,165, 165 
153 IF(L-60)160, 160, 172 
160 IF(W+2.3)172, 165, 165 
165 L=L+133 
172 CALL COMMOL(B,L.W.X.Y) 
C ¥eEETEKRKRE RG EM 
ANS=EXP(Y*2.3025851) 
IREG=2 
GO TD 222 
220 IREG=1 
222 RETURN 
END 


OMA AMA WN DOOxAMA UN KWH = 


NO oh WHY = 
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Cr 
C**t 
Cr 
Cxre 
Crrt 
Crtet 


45 


6 1 


X 
Y 


IS S/R 
IS H/RTO 


ANS IS LOG(P/PO) 
IREG IS AN ERROR FLAG 


OOMOnA AM AWNHaAB WO WAIODNMAWNH = 


a 


SUBROUTINE MOLP(X,Y,ANS,IREG) 

DIMENSION P( 192) 

DAtAw (PCE) ol=4.470)/50,,505.4:43..2:,1.,- 15005431 ,-11.875372, .186 
01692 ,-21.633755, -5.0224106, -11.257093, 740. ,- .0067242968, .5464345 
O-5.,4-,2+, 1.,4-6296612,-4,. 5980114, .093795043 ,-19.432002, -3.19525 
ClO. 190006, 7 O., 221496017 ,. 3662 1169.12. 4.72. , 1. ,8.8698867 ,-2 
Pao t lo. 70408959737 -17.792131," 49121647 ,-9.9728967 ,7*O..,-.4083 
jee? 1063S160,22.,6.52.,3.,720.111381,-2. 1441838, .014443150,-29. 
454863, -.47192620, -8.5112371, .25523739, .0066484889, .0033863644, .0 
015706618, .29212782, .0079289807, - .00260680, 1.0278853, . 12630380,55 
ieee «, 2. 4. Socds01,-o. 1702261, 18758816, =-21.577115,- .8 7969647 
»76.3939887 ,4*0., .075998763, . 15656807, .021045125, .40420838, .38169 
POOrml Om e4o 2. O77 14. 00710900,73.0724161, . 13750957 ,-21,.095445,-.0 
70520782,-4.1064793,- . 12628849, -. 19177802, - .000045377713, .0067747 
753,-.17712703, .027519558, .0015860428, .87906794, .30647355, 275. , 13 
Soe 20. 0750969, 1. 1024015. 026282217, - 16. 104741,1.5155751,-1. 
1690305, 4*0., .050928801, .29769415, .00077288959, 1.5256376, .2426488 
SB. o00] oO... 1... > 1.0426996, -2.4064009, . 11494271. -10..937820, 1.38 
Souda Ve so7 149947 *O.,.2649566 15, .33361590,850.. 160. .2.-3.5-6.91918 
34,-.85195421, .0543373 16, -6.8468864, .94695076,2.3221757, - .5349839 
9, .26778936, - .044538904, .0021455882, .98320726, - .25476113/ 

DATA (P(I),1=171, 192)/.041036116, .21507674, .31155051, 1500. ,500., 
2.,2.,-10.103526,6.6634563, -1.0278980, .48045903, -1.7843572,2.4233 


2 978,4*0.,.29619502, .053797980, -. 11794996, . 95870246, - .30898900/ 


CALL TESTH(X,Y,N74, IREG) 
ee KEEK EY ERY 
IF(IREG-1)61,61,45 

CALL COMMOL(P,N74,X,Y,ANS) 
¥EKKEKKE KK KR & 

RETURN 

END 
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Cret 
C* + 
C**+* 
Crt 
Cr 
Cr** 


60 


SOR IS S/R 

HORT IS H/RTO 

ANS IS LOG(P/PO) 
IREG IS AN ERROR FLAG 


OAM BWHAD SB NO WOONONA M AWN = 


== O WO 


SUBROUTINE MOLR(SOR,HORT,ANS,IREG) 
OIMENSION A( 192) 
DATA (A(I),I1=1,167)/50. ,50.,4.,3.,2.,1.,.29646067, -12.029348, . 141 
09302, -21.556625, -5.4563379, -11.316583,7*0. ,-.013484723, .55334227 
,8.,4.,2.,1.,10.370284, -9.9398482, .093205445, -16.650190,-4. 148325 
0,-10.551169,7*0. ,-.47741818, .44562816,12.,4.,2.,1..28.357261,-.4 
0220242, -.091946872, -8.5069814, .44762202, -10.089678 ,7*0. ,-1.30576 
21,-.0052874757,22. ,8.,2.,3..-20.515034, -2.2545360, .015611412,-30 
.238408, -.70234767, -9.2212898, .35028502, .033535686, .010294011, .00 
18341365, .40126774, .032551723, .0016893023, 1.0849856. . 13074092,55. 
,29.,2.,2.,-17.065362,-1.8243845, .027389882, -26.066901,-. 11273894 
,°7.3122123,4*0., .12676889, . 15670133, .0055456298, 1.0205623, .21108 
427,115.,45.,2.,3.,47.004757, -16.021931, .39136805, -3.4926704,-3.5 
464860, -5.3298536, 1.3005490, - .57583006, .080704954, .0042520642 ,-.3 
5475548, -. 14760870, .072690447, -2.5895288, .85700048 ,275.,135.,2.,3 
.,17.420013, -8.0508205, . 40903702, -10.889706,-. 10331446, -2.6810765 
,- 91536506, -. 44954500, .056883407, - .0078941843, -. 46389858, - .044033 
323, .082227159,-1.0802966, .63717741,550., 160. ,2.,1.,-.52664526, -1 
.9193044, .040457103, -10.998347, .63541058, -.51776785,7*0., . 1376570 
4,.27443512,850. ,160.,2.,3.,6.7873925, -.92691880, .0049465705, - 10. 
354406, .51247015, .57436892, . 10119706, -.057801836, .0072531624/ 
DATA (A(1),1=168., 192)/.0002134 1241. 

- .29508863, .039002554, .0012492809, -. 44301206, . 11096111, 1 
500. ,500. ,2.,3.,2.4082057, .69779795, -.21986558, -3.5450464,-.41979 
069, -.13207427, - .0019447663, - .0049813671, .014962087, - .00088754904 
, . 23275979, -. 28026272, .017554770, - .99050961, .30663019/ 
CALL TESTH(SOR,HORT,174,IREG) 
*eeeegegeEKE KE 
IF(IREG.E0.1)GO TO 60 
CALL COMMOL(A,1I74,SOR,HORT,ANS) 
Reeeeuecee eee 
RETURN 
END 
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(Gaeta 


Cr*e* W IS LOG(P/PO) 
ctt* Y IS H/RTO 
C*** ANS IS S/R 
Ct** TREG IS AN ERROR FLAG 
C*** 
SUBROUTINE MOLS(W,Y,ANS, IREG) 
OIMENSION S( 192) 
DATA (S(I),1=1,149)/0.,1.,4.,3.,.2.,.3..-.0008056 1372. -.069087518,. 
027464886,-.11380348, .95169019, 1.3815255, - .0000057990656, - .000123 
00780, .00011636034, .0012208080, - .000712 10995, -.031772602, .0118874 
93,-.052296548, .65468922,8.,4.,2.,1., .000503664, -.0012816317,-.00 
59983993,-.11930272, .11287569,1.4231668,7*0. ,-.057251211, .0581412 
2,12.,4.,1.,2.,3*0.,-. 10774019, .05807095, 1.4463519, 4*0. , -.0002013 
7394, .00022152799, .00195 18188, -.049714580, .026980282,22.,8.,2.,3. 
, 0027192237, -.033931899, .014176636, -.022802602, -. 2479084, -.39615 
334, .0000035001106, - .00008 1170565, .00034046708, -.005009021, -.0000 
5586814, .00086677974, .0025764335, -.058649747, .69620994,55. ,29. ,2. 
»2.,-00083 174503, -.017794792, .01203 1825, - .044492627, -.0280635 18, - 
.31922865,4*0. , -.00020568307, .0082727049, -.019137651, -.0096276364 
, - 25046296, 115.,45. ,2.,2.,-.0056251369, -.0015950635, .0011525511, - 
.07943472, .03401695, -.23108108,4*0. , .0019412961, -.0039465752, -.01 
6248866, . 10844722, .086590989,275.,135.,2.,3.,-.00039528921, -.0148 
58414, .0000147236 18, -.069546961, . 10612579, - .080804506, .0001014453 
7, .000465 18281, - .00016907078, .008022368, .00109 15855, .0032314882, - 
.012099992, .016178205, .056239683,550. ,160.,2.,2.,-.00086049623, -. 
02776368, .010558864, -.088218134, . 12402428, .1193478,4*0./ 
DATA (S(I),1=150, 192)/.00093089117, -.00039895385, - .0013731034, .02 
1879948, .22819871,850.,160. ,2.,2.,.027159346, -.055317935, .0217328 
82,-.17316771, . 16235389, .27050669, 4*0. ,-.0017015074, .025122763, .O 
002445801, -.2487639, .33867764, 1500. ,500.,1.,3.,3*0.,-.30922899, -1 
.455907 , 1.8756767, .00007460909, - .00026785349, - .00075011575, - .0040 
865079, - .00084256838, - .0090684213, .026295107,-. 13858356, - . 7969430 
ay 
CALL TESTH(W,Y,N140, IREG) 
(e KEERKRKKEKKEKSE 
IF(IREG-1)120, 120,52 
52 CALL COMMOL(S,N140,W,Y,X) 
G K¥EKKEKEKE EK *& 
N140=N140+1 
IF(N140-59)74, 74, 105 
74 ANS=EXP(X*2.3025851) 
GO TO 120 
105 IF(N140-173)112,112,74 
112 ANS=X*50.+50. 
120 RETURN 
END 


WOON ANAM h WN HB VY DWAIDN WH a 


Amana WON = 
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C++ 
C#** 
C*** 
cere 
Ces 
C*** 


50 


40 


X IS S/R 
Y 1S H/RTO 
ANS IS T 
IREG IS AN ERROR FLAG 

SUBROUTINE MOLT(X,Y,ANS, IREG) 

DIMENSION T( 192) 

DATA (T(1I),121,183)/50. ,50.,4.,3..,2..1.,-.001662012, -.00030083209 
1 ,.046179467, -.0042974158, 1.6563552,2.4957474,7*0. ,-.0011127006, .5 
2 3431056,8.,4.,14.,1.,3*0., .0067799737, .96965414,2.7914059,7*0., .00 
3 24459562, .27194367,12.,4.,1.,1.,3*0.,-.0070861052, .67589623,2.957 
4 5481,7*0.,-.002380321,.18296218,22.,8.,2.,1.,-.10841575, -.2007499 
5 9,-.030015981,-3.8311066, .44841953,3.1783501,7*0.,-1.172013, . 1004 
6 7983,55.,29.,2.,2.,10.510419, . 78019581, .07377469,8.0537558, 1.5265 
7 471,3.311009,4*0. ,3.2439108, .29525752, .012016203,2.5402056, . 43970 
8 633,115.,45.,2.,2.,6.9650128,2.9959483, .099214637,8.5056773,2.348 
9 8217,3.5515688,4*0. ,2.0791532, .8292544, .016441181,2.4936922, .6240 
16866,275.,135.,2.,3.,2.102422, 1.2079036, -.54560532,4.8029687, .7061 
2 6618,3.7680081, .026794453, .016865589, -.040698219, .0037372526, .696 
3 08228, .31656604, -. 14622854, 1. 4458192, . 15328036,550.,160. ,2.,3.,1. 
4 1622911,2.4200366,4.0108106, -3.5603333,2.3041078 ,4.0077135, . 18420 
5 427, .11553482, .11218739, -.030143326, .033296111, .64585002, .9835687 
6 7,-.75069059, .53856768,850. ,160.,2.,3.,-1.5674925,3.5878439, 1.863 
7 4423,-.15969706, .88403848 ,4.2222854, - .076696683, .091025232, .03096 
8 5581,-.0068679561, -.35160837, .88944428, .443366, .076640642, . 189604 
9 13,1500. ,500. ,1.,.3.,3*0.,7.5792861,-9.7314346,2.9826061/ 

DATA (T(1),1=184, 192)/-.446325, .46100429, -. 13524719, .0058322903, 1 
1 .362303,-1.1507226, .21638788, .7264903, -1.8320955/ 

CALL TESTH(X,Y,N110,IREG) 

*eKKEEKERESRE 

IF(IREG-1)40,40,50 

CALL COMMOL(T,N110,X,Y,TT) 

KE REREKK KEK 

ANS=EXP(TT*2.3025851 ) 

RETURN 

ENO 
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THIS SUBROUTINE CALCULATES THE HEATING RATE DUE TO COMBUSTION 
IT IS ASSUMED THAT OXYGEN AND CARBON REACT TO FORM CO ONLY. 


aqgaqgagna 


SUBROUTINE OXIDAT(XMODD ,QDXIO) 
COMMON /FNTBCK/ FBLOW,EMV,EMC,H300, TEST2, TENV, QIN, HENV, FENV 
1 » QLOSS,OHC,HXX(12),HX(50), TW(50) 


QOXID0=XMD0tOHC/3600 .0 


RETURN 
ENO 


2 





12 


20 
22 
24 
30 


31 


32 


3 


1 


1 


1 
2 
3 


THIS SUBROUTINE OETERMINES THE PHYSICAL PROPERTIES OF THE 


HEAT 


SHIELO STRUCTURE 


SUBROUTINE PROP (NTERR) 


OIMENSION CP(50),YK(50),CPGAS(50),HV(50) 


COMMON 
COMMON 


* 


COMMON 
COMMON 


COMMON 
COMMON 
COMMON 
COMMON 
COMMON 
COMMON 


/ABPROP/ RHO(50O) 

/BACKUP/ XNPM( 12),RHOBX(12),XBM(12),&MBB(12),EMFB( 12) 
NKPB(12),NCPB( 12), TXK(20, 12),XK(20, 12), TCP(20, 12) ,NPM( 12) 
CPX(20,12),GAPX( 12), FTEST( 12), BTEST(12),H( 12), XKB(10, 12) 
CPB( 10, 12),0xXB( 12) 

/TEMPS/ TEMODI(200),TX1(50),7TX2( 200), TX2T( 10, 12), TUL1(50) 
TUL2(50), TY( 200), TEMPI, TXO, SURTEM 

/ABLATS/ XMOG(50),TABL, TCHAR, RHOV,RHOC,TREC,XLOST,SOOTOS 
SOOT, XMDC,XMT 

/INODIX/ NP,NP2,IFPT,NPBS,NPF,NMB 

/HSPARA/ OX, TL,VL,BL,OMP,VPT 

/FIXPRO/ CHARK,CHARC,ABLK,ABLC 

/FIXERS/ 11,12,13,14,15,16 

/JUNK/ ERR1,ERR2,ERR3,ERR4 

/ARRH/ THETA(50),AP,XB,SN,CA 


COMMON/TABS/ TNOODE(50),OCHAR(50), ITABLE(9,10), ITAB(9,6) 


TABLES(500), ICHAR1, ICHAR2, ICHAR3, IREAC1, IREAC2 
, IVIRG1, IVIRG2, TREAD, IERROR, ITABNO,AINPUT(9),W(50) 
, ISTART, IENO, ANSWR(350) 


EQUIVALENCE (ANSWR(1),CP(1)), (ANSWR(51),YK(1)), (ANSWR(201),CPGAS(1 
1)), C(ANSWR(251),HV(1)), (ANSWR(301),HSUB) 

Oo 10 I=1,NP 

IF(THETA(I).GT.0.01) GO TO 12 

CONTINUE 


IREAC1= 
IVIRG1= 
ICHAR2= 


NP + 1 
NP+1 
NP 


GO TO 20 


ICHAR2= 


I-41 


IREACI1=I 

OO 15 I=IREAC1,NP 
IF(THETA(I).GT.0.995) GO TO 17 
CONT INUE 


IVIRG1= 


NP + 4 


GO TO 20 


IREAC2= 
IVIRG1= 


IT=0 


bea 
I 


P2ITABLE(IS1¢5) 
GO’ 10° (30.40 750.50, 70, 70,90, 1007 1107190) 1 


ISTART= 


IREAC1 


IEND=IREAC2 
IF(AINPUT(1))31,32,34 
CALL TBKINO(1) 
kekeekeeeea REE 

GO TO 22 
ITABLE(3,9)=100 

CALL TBKINO(3) 


eeeenegegeeE ESE 


ITABLE(5,9)=150 


ine 


33 


34 
35 


40 


41 


42 


43 


44 
45 


50 


23 


35) 


36 


a7 


58 
39 


70 


(63) 


78 


CALL TBKINO(5) 
EKKERERK EXE 
ITABLE(3,9)=50 
ITABLE(5,9)=50 

DO 33 K=IREAC1,IREAC2 
YK(K)=ANSWR(K+100)+( ANSWR(K+ 150) -ANSWR{ K+ 100))* THETA(K) 
GO 10 22 

OO 35 K=IREAC1, IREAC2 
YK(K )=AINPUT(1) 

GO TO 22 

ISTART=IREAC1 

IEND=IREAC2 
IF(AINPUT(2))41,42,44 
CALL TBKINO(2) 
e¥KKEKKKE EE 

GO TO 22 

ITABLE(4,9)=100 

CALL TBKINO(4) 
KeEKEKE RK KK * 
ITABLE(6,9)=150 

CALL TBKINO(6) 
KEKEEE KEE EE 

ITABLE(4,9)=0 
ITABLE(6,9)=0 

OO 43 K=IREAC1, IREAC2 
CP(K)=ANSWR(K+100)+( ANSWR(K+ 150) -ANSWR(K+100))* THETA(K) 
GO! T0722 

DO 45 K=IREAC1,IREAC2 
CP(K)=AINPUT(2) 

GO TO 22 

IF(ICHAR2.LT.1) GO TO 22 
IF(AINPUT(I).GT.O.) GO TO 56 
ISTART=ICHAR1 

I ENO=ICHAR2 
IF(ICHAR3.LT.ICHAR2) GO TO 53 
ICHAR3=ICHAR2 

GO To 55 

ICHAR3=ICHAR3+1 

OCHAR( ICHAR3 ) =TX2( ICHAR3 ) 
CALL TBKINO(I1) 
KEKEEKEKEK EEK EK 

GO TO 22 

IF(I.EQ.4) GO TO 58 

00 57 K=ICHAR1,ICHAR2 
YK(K)=AINPUT(1) 

GO TO 22 

00 59 K=ICHAR1,ICHAR2 
CP(K)=AINPUT(I) 

Gou 10) 22 
IF(AINPUT(I).GT.O.) GO TO 75 
ISTART=IVIRG1 

IENO=IVIRG2 

CALL TBKINO(I1) 
Ke KR KKK KEKE K 

GO TO 22 

IF(I.E0.6) GO TO 78 
YKC(IVIRG1)=AINPUT(I) 

GO TO 22 
CP(IVIRG1)=AINPUT(1) 

GO TO 22 


Zo 


90 ISTART=ICHAR1 
IENO=IREAC2 
CALL TBKIND(1) 
eeeeeege*e* & * 

GO TO 22 

100 ISTART=IREAC1 
IEND=IREAC2 
CALL TBKIND(1) 
eEEEEK KE EE 
GO TO 22 

110 ISTART=ICHAR1 
IEND=IREAC2 
CALL TBKIND(1) 
eee KEKE *e Y 
GO TO 22 

190 CONTINUE 


OETERMINATION OF PROPER BACK-UP SHIELO MATERIAL PROPERTY 


199 00 300 I=1,NMB 
OxB(1)=XB8M(1)/((XNPM(I)-1.0)*12.0) 
LKP=NKPB(I) 
LCP=NCPB(1) 
NN=NPM(I) 
00 280 J=1,NN 
200 IF(I5-1) 203,203,201 
201 IF(IS-LKP) 202,202,203 
202 IF(TX2T(J,1)-TXK(I5,1)) 206,220,205 
203 WRITE(20,204) I,TX2T(J,1I1) 
204 FORMAT(1HO,32H THE RANGE OF ONE OF THE NUMBER ,12,71H BACKUP STRUC 
{TURE PROPERTY CURVE FITS WAS EXCEEQOEO AT A TEMPERATURE OF ,1PE12.5 
2) 
ERR2=1.0 
GO TO 355 
205 I5=15+1 
GO TO 201 
206 IF(TX2T(J,1)-TXK(15-1,1)) 210,220,215 
210 I15=15-1 
GO TO 200 
215 xKB(JU,1)=xXK(15-1,1)+((XK(15,1)-XK(15-1,1))/(TXK(15.1)-TXK(15-1,1)) 
1)*(TX2T(JU,1)-TXK(IS-1,1)) 
GO TO 230 
220 XKB(J,1)=xXK(15,1) 
230 IF(16-1) 203,203,231 
231 IF(IG-LCP) 232,232,203 
232 IF(TX2T(J,1)-TCP(I6,1)) 234,245,233 
233 16=16+1 
GO TO 231 
234 IF(TX2T(JU.1I)-TCP(I6-1,1)) 235,245,240 
235 I6=I16-1 
GO TO 230 
240 CPB(J,1)=CPX(16-1.1)+((CPX(16,1)-CPX(16-1,1))/(TCP(I6,1)-TCP(16-1, 
11)))*(TX2T(JU,1)-TCP(I6-1,1)) 
GO TO 280 
245 CPB(J,1I)=CPX(1I6,1) 
280 CONTINUE 
15-2 
16=2 
300 CONTINUE 
310 IF(OMP) 355,355,320 


254 


320 WRITE(20,330) 
330 FORMAT(/1X,32H PROPERTIES OF ABLATION MATERIAL/ ) 
WRITE( 20,335) 
335 FORMAT(/5X,SHYK(I),9X,SHCP(I),9X,GHRHO(I)/) 
WRITE(20,340) (YK(I),CP(I),RHO(I),I=1,NP) 
IF(OMP.GT.0.0) GO TO 355 
340 FORMAT(2X, 1PE12.5,2xX, 1PE12.5,2X,1PE12.5) 
WRITE(20,345) 
345 FORMAT(//1X,32H PROPERTIES OF BACK-UP STRUCTURE/ ) 
WRITE(20,347) 
347 FORMAT(/5X,8HXKB(J,I),7X,8HCPB(J,I),7X,8HRHOBX(I),7X, 7HEMFB(I), 8x, 
17HEMBB(I) ,9X,6HOXB(I)/) 
00 350 I=1,NMB 
KL=NPM(I) 
00 349 J=1,KL 
WRITE(20,348) XKB(J,1I),CPB(J,I),RHOBX(I), EMFB(I),EMBB(I),OxB(I) 
348 FORMAT(3xX,1PE12.5,3X, 1PE12.5,3X, 1PE12.5,3X, 1PE12.5,3X, 1PE12.5,3x, 1 
1PE12.5) 
349 CONTINUE 
350 CONTINUE 
355 RETURN 
END 


255 
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THIS SUBROUTINE OETERMINES THE FRONT FACE LOCATION ANO CHAR MASS 
REMOVAL RATE 


SUBROUTINE RECESS(XMOC,XLOST,TREC,OT,RHOC,TS,SR,TX2,NREC,NRS,ERRS, 
1S5X0, SOOT ,OMP, SPRINT ,RHOS,QOOT ,OELH) 


OIMENSION 1TS(50),SR(50) 
IF(TX2-TREC) 10,20,20 

10 xMOC=0.0 
XLOST=0.0 
SO0T=0.0 
SPRINT=0. 
GO TO 60 

20 IF(NRS-1)25,25,21 

21 IF(NRS-NREC) 22,22,25 

22 IF(TX2-TS(NRS)) 32,40,30 

25 WRITE(20,26) Tx2 

26 FORMAT(1HO,75H THE RANGE OF THE SURFACE RECESSION TABLE WAS EXCEEO 
1ED AT A TEMPERATURE OF ,1PE12.5) 
ERR5=1.0 
GO TO 60 

30 NRS=NRS+1 
GO TO 21 

32 IF(TX2-TS(NRS-1)) 34.40.36 

34 NRS=NRS-1 
GO TO 20 

36 SX=SR(NRS-1)4+((SRCNRS)-SR(NRS-1))/(TS(NRS)-TS(NRS-1))) 
1*(TX2-TS(NRS-1)) 
GO TO 50 

40 SX=SR(NRS) 


50 XMYY=300. *SX *RHOC 


XMOO=.75*.23*3600. *Q00T/OELH 
IF(XMYY.LE.XMOO) GO TO 80 
SPRINT=2. 

XMOC=XMOO 

Sx =xMOO/(RHOS*300. ) 
XLOST=300. *SX*OT 
SOOT=Sx*300. 

GO To 51 


80 SPRINT=1. 


54 


XMOC=XMYY 

XLOST=300). *$xX *OT 

SOOT =$xX*300. 

IF(OMP )60,60,52 
52 WRITE(20,54) Sx,XLOST,XMOC 
54 FORMAT( 1HO,3HSX=, 1PE12.5,3X,6HXLOST=, 1PE12.5,3X, SHXMOC=, 1PE 12.5) 
60 RETURN 

ENO 
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—Ssaseee — = = 


SUBROUTINE RESET 
RETURN 
END 


257 





Cc 


C 


900 FORMAT(/3X8GHTEMPERATURES AT SELECTEO THERMOCOUPLE LOCATIONS 
1TH - (IN), TEMPERATURE - (OEG-F)) 


50 


100 


101 


102 
150 


151 


500 


200 


201 


1000 


230 


SUBROUTINE RITE(X,Y,NTBL, IBFN) 
OIMENSION xX(1),¥(1),A(30) 
IFLG=0 

IBGN=IBFN 

WRITE( 20,900) 


NP =NTBL -IBGN+1 
IF(NP.LE.5)GO TO 500 
IF(NP.LE.10)GO TO 1000 
SECTION 3 

Ix=5 

IF(NP.LE.13) Ix=4 
IF(NP.E0.13) IFLG=1 
IENO=I1X+IBGN- 1 
IF(CIFLG.E0.1) IENO=IENO+1 
=] 

ICT=0 

0O 100 I=IBGN,IENO 
A(L)=x(1) 

A(L+1)=Y(1) 

L=L+6 

N=2*NP 

IF(ICT.NE.O)GO TO 101 
Ler 

IBGN=IENO+1 

IENO=IENO+4 

TCt-1 

GO TO 50 

IFC ICT.NE.1}GO TO 102 

L=5 

IBGN=IEND+ 14 

IENO=NTBL 

IGT-2 

GO TO 50 

WRITE(20, 150) 
FORMAT(/,7X,5HOEPTH, 10X, 1 1HTEMPERATURE, 10X ,SHOEPTH, 10x, 


111HTEMPERATURE, 10X,SHOEPTH, 10X, 11HTEMPERATURE }) 


WRITE( 20, 151)(A( I), 1=1.N) 
FORMAT(1X,E16.8,5(2xX,E16.8)) 

RETURN 

SECTION 1 

WRITE( 20,200) 
FORMAT(/,33X,5HOEPTH, 27X, 11HTEMPERATURE ) 
WRITE(20,201)(X(1),Y(1),1=IBGN,NTBL) 
FORMAT(27X,E£16.8,20X,E£16.8) 

RETURN 

SECTION 2 

IX=5 

IF(NP.EO.6)1x=3 
IF((NP.EO.7).0R.(NP.E0.8))IX=4 

ICT=0 

Ges 

IENO=IX+IBGN- 1 

00 300 I=IBGN,IENO 


256 


DEP 


300 


301 


350 


ACE y=. C1) 

A(L+1)=Y¥(1) 

L=L+4 

IF(ICT.NE.0O)GO TO 301 

PCT=1 

L=3 

IBGN=IEND+1 

IENO=NTBL 

GO TO 290 

N=NP*2 

WRITE(20,350) 
FORMAT(/10XSHDEPTH, 18X11HTEMPERATURE , 28X5HDEPTH, 18X11HTEMPERATURE ) 
WRITE(20,351)(A(I),I=1.N) 
FORMAT(5X,£16.8, 10X ,E16.8,20X,E16.8, 10X,E16.3) 
RETURN 

END 


Zoe 


AAD 


SUBROUTINE SINGLE INTERPOLATES A=F(X) 


SUBROUTINE SINGLE(I,X) 

DIMENSION x(12) 

OIMENSION CP(50) , YK(50) ,CPGAS(50) ,HV(50) 

COMMON/TABS/ TNODE(50),OCHAR(50O), ITABLE(9, 10), ITAB(9,6) 


1 , TABLES(500), ICHAR1, ICHAR2,ICHAR3, IREAC1, IREAC2 
2 . IVIRG1, IVIRG2, TREAD, IERROR, ITABNO, AINPUT(9) ,W(50) 
3 . ISTART,IEND, ANSWR(350) 


EQUIVALENCE (ANSWR(1),CP(1)), (ANSWR(51),YK(1)), (ANSWR(201) ,CPGAS(1 
1)), (ANSWR(251),HV(1)), (ANSWR(301),HSUB) 
IS=ITABLE(1,9)+ISTART 
IE=ITABLE(I,9)+IEND 
11=ISTART-1 
JUX=ITABLE(1,2) 
00 1000 K=IS,IE 
1121 1+1 
IF(X(11).GT.TABLES(JUX)) GO TO 20 
15 JUX=JxX-4 
IF(X(11).GT.TABLES(JUX)) GO TO 100 
GO TO 15 
20 IF(X(11).LT.TABLES(JUxX+1)) GO TO 100 

UX =UX+1 
GO TO 20 

100 KX=JUX+ITABLE(I,7) 
ANSWR(K )=TABLES( KX )+( TABLES (KX+1)-TABLES(KX) )*((X(€11)-TABLES(UX)) 
*/(TABLES(JUX+1)-TABLES (UX ))) 
IF(K.GT.1IS) GO TO 1000 
ITABLE(1I,2)=uUx 

1000 CONTINUE 
RETURN 
END 


260 


QAaAOND 


SUBROUTINE SUBL(TW,PLPT,SO0TS,TS,SR,ALTX,NREC,SDOT, VELX,PL1,PL,PT2 
1, TSUBX, TSUBL) 


OIMENSION PES(10),TSUB(10),TS(10).SR(50) 


DATACPES(E).1=1. 10)7.001,.005,.01, .05,. 147, .5,1.0.2.0,4.0.6.0/ 
DATA(TSUB(I),I=1,10)/4640. , 4900. ,5050. ,5340. ,5460. ,5740. ,5880., 
16000. ,6130. ,6200./ 

NSUB=10 

IF(TW.LT.TSUBL) RETURN 

A=165000.0/TW 

IF(A.GT.88.) A=88. 

B=(0.612E+12)*EXP(-A)/(TW**0.3924) 

SDOTS=B*3600. 


SDOTS - FT/HR (SUBLIMATION RATE) 
SDOT - FT/HR (CHEMICAL ERROSION RATE) 


RETURN 
END 


Zou 


100 


200 


290 
260 


270 


279 
300 


THIS SUBRDUTINE DETERMINES THE FORWARO TIME STEP TEMPERATURES 
BY SOLVING THE TRI-DIAGDNAL MATRIX 

SUBROUTINE SWUFT(A,B8,C,0,T,N,OMP) 

DIMENSION A(200),8(200) ,C(200),0(200),1T(200),CP(200).,DP(200) 
CP(1)=C(1)/B(1) 

0P(1)=0(1)/B8(1) 

DD 100 I=2,N 

CP(I)=C(1)/(B(1)-AC(I)*CP(I-1)) 
DP(I)=(O(1I)-A(I)*DOP(1I-1))/(B(1I)-ACI)*CPC(I-1)) 

CONTINUE 

TON) =DP(N) 

NM1=N-1 

00 200 J=1,NM1 

I=N-J 

TC I)}=DPCI)-CP(I)*TC1I+1) 

CONTINUE 

IF(DMP) 300,300,250 

WRITE(20,260) 

FDRMAT(//1X,43HCDEFFICIENTS CALCULATED BY SUBROUTINE SWUFT//) 
WRITE(20,270) 

FORMAT( 6X,5HCP(I),10X, SHDP(I),10X,. SH A(I), 12X,4HB(I), 12x, 4HC(I 
1), 12X, 4HD(I),12X, 4HT(I)) 
WRITE(20,275)(CP(I),DP(I),ACI),8¢(1),C(I).0€1),T(1).1=1,N) 
FORMAT(7E 16.8) 

RETURN 

ENO 
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SUBROUTINE TBKIND (I) 
COMMON /ABPROP/ RHO(SO) 
COMMON /TEMPS/ TEMOI(200),TX1(50),1TX2(200) ,TX2T( 10, 12), TUL1(50) 
COMMON /FIXPRO/ CHARK,CHARC, ABLK,ABLC 
COMMON /ARRH/ THETA(50),AP,XB,SN,CA 
COMMODN/TABS/ TNODE(50),D0CHAR(50), ITABLE(9, 10), I1TAB(9,6) 
, TABLES(S0O0),ICHAR1, ICHAR2,ICHAR3, IREAC1, IREAC2 
, IVIRG1,IVIRG2, TREAD, IERROR, ITABNO, AINPUT(9),W(50) 
, ISTART,IEND, ANSWR(350) 
COMMON /PRES/ P(50),ALFAV,ALFAC,BETAV,BETAC,Z 
DIMENSION PATM(50) 


Gh — 


K=ITABLE(1I,6) 
GD TO (150,82,87,90,93,96,99, 102, 105, 108, 110, 120, 130) ,K 


TEMPERATURE DEPENOENT 


CALL SINGLE (1,TX2) 


KKKEKKEKKAKES 


GO TO 22 
TEMPERATURE DEPENDENT --- IRREVERSIBLE 


DO 89 J1=ISTART,IEND 
TNODE (J1)=AMAX 1( TNODE(JU1), TX2(J1)) 
CALL SINGLE(I, TNODE) 


HKKKKKEKEKKK 


GOD TO 22 
DENSITY DEPENDENT 


CALL SINGLE (1,RHD) 


KKREKERKEKES 


GO TD 22 
PRESSURE DEPENDENT 


DO 94 J1=1,50 
PATM(J1)=P(J1)/14.6959 
CALL SINGLE(I,PATM) 


KKKEKEKKKKKE SEK 


GD TO 22 
TEMPERATURE AND CHAR TEMPERATURE DEPENDENT 


CALL DDUBLE (1,TX2,0CHAR) 


KEEKKEKERE K 


GO TD 22 
TEMPERATURE ANO CHAR TEMPERATURE OEPENDENT --- IRREVERSIBLE 
DD 101 J1=ISTART,IENO 


TNODE (JU 1)=AMAX1( TNDDE(J1),7TX2(J1)) 
CALL DDUBLE (I, TNOOE ,OCHAR) 


KEKKKKKKKES 


Zoe 


AAA 


OAD 


aa 


Aa 


102 


105 
106 


108 
109 


110 
114 


120 


122 


130 


32 


134 


136 


190 
103 


Ze 


GD TD 22 
TEMPERATURE AND DENSITY DEPENDENT 


CALL DDUBLE (I, TX2,RHD) 


EERERK¢C KEKE * 


GD TD 22 
TEMPERATURE AND MAXIMUM TEMPERATURE DEPENDENT 


DD 106 J1=ISTART,IEND 
TNDODE(JU1)=AMAX1(TNDODE(JU1),TX2(J1)) 
CALL DDUBLE (I,TX2,TNDDE) 


KERR REERRERE 


GD TD 22 
TEMPERATURE(NR) AND MAXIMUM TEMPERATURE DEPENDENT 


DD 109 J1=ISTART,IEND 
TNDDE(JU1)=AMAX1( TNODE (U1), TX2(U1)) 
CALL DDUBLE (I, TNDDE, TNDDE ) 


FERRER REP OEE 


GD TD 22 
TEMPERATURE AND PRESSURE DEPENDENT 


DD 11141 Ji=1,50 
PATM(JU1)=P(JU1)/14.6959 

CALL DDOUBLE(I,TX2,PATM) 

**e£eERERERREER Et 

GD TO 22 

IS=ITABLE(1I,9)+ISTART 
IE=ITABLE(1,9)+IEND 

DD 122 J1=IS.IE 

ANSWR(J1t)=AINPUT(I) 

GD TD 22 

IS=ITABLE(I,9)+ISTART 
IE=ITABLE(I,9)+IEND 

J2=ISTART-1 

IF(I.GT.1) GD TD 134 

DD 132 J1=IS,IE 

J2=J2+1 
ANSWR(J1)=CHARK+( ABLK-CHARK ) * THETA(J2) 
GD TD 22 

DD 136 J1=IS,IE 

J2=JU2+1 

ANSWR(J1) =CHARC+( ABLC-CHARC) * THETA(J2) 
GD TD 22 

WRITE(20, 103) 

FORMAT(1H1//,43HTABLE INTERPDOLATIDN DPTION 1 IS NOT ALLOWED) 
IERRDR=1 

RETURN 

END 
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SS ee 


Qu@ue 


50 
55 


60 


100 


200 


500 


30 


600 


SUBROUTINE TBLSET SETS UP THE INFORMATION FOR THE ARRAY ITABLE. 


SUBROUTINE TBLSET 

COMMON/TA8S/ TNOOE(50),OCHAR(50), ITABLE(9,10), 1TAB(9,6) 
. TABLES(500),ICHAR1, ICHAR2, ICHARS, IREAC1, IREAC2 
, IVIRG1, IVIRG2, TREAQ, IERROR, ITABNO, AINPUT(39),W(50) 
, ISTART,IENO,ANSWR(350) 

DO 500 I=1,9 

IF(ITABLE(I,141).LT.1) GO TO 500 

IF(ITABNO.LT.1) GO TO 55 

00 50 J=1,ITABNO 

IF(ITAB(JU,1).EQ.ITABLE(I,1)) GO TO 60 

CONT INUE 

ITABLE(1I,1)=-ITABLE(I,1) 

IERROR=1 

GO TO 500 

K=ITAB(J,6) 

GO TO (100, 100, 100, 100, 100, 200, 200, 200,200,200,200), K 

ITABLE(I,2)=ITAB(U,2)+1 

ITABLE(I,3)=0 

ITABLE(1,4)=ITAB(UJ.2) 

ITABLE(1,6)=ITAB(U,6) 

ITABLE(1,7)=ITAB(JU,4)+2 

ITABLE(1I,8)=ITAB(U,5)+3 

GO TO 500 

ITABLE(1I,2)=ITAB(UJU,2)+ITAB(JU,5)+3 

ITABLE(1,3)=ITAB(JU,2)+1 

ITABLE(I,4)=ITAB(J,2) 

ITABLE(1,6)=ITAB(U,6) 

ITABLE(1,7)=ITAB(U,4)+2 

ITABLE(1,8)=ITAB(JU,5)+3 

CONT INUE 

GO 550 I=1,2 

IF(AINPUT(I).£Q.-1.) ITABLE(1,6)=13 

CONTINUE 

00 600 123,6 

IF(ITABLE(I,1).GT.O.) GO TO 600 

ITABLE(1,6)=12 

CONTINUE 

RETURN 

ENO 
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SUBROUTINE TBLST(I) 


COMMON /INDIX/ NP,NP2,IFPT,NPBS,NPF,NMB 
COMMON/TABS/ TNODE(50),DCHAR(50), ITABLE(9, 10), I1TAB(9,6) 


{ , TABLES(500), ICHAR1, ICHAR2, ICHAR3, IREAC1, IREAC2 
2 . IVIRG1, IVIRG2, TREAD, IERROR, ITABNO, AINPUT(9) ,W(50) 
3 . ISTART,IENO,ANSWR(350) 


IF(I.GT.1) GO TO 200 
TREAD=O. 
ITABLE(1,9)=50 
ITABLE(2,9)=0 
ITABLE(3,9)=50 
ITABLE(4,9)=0 
ITABLE(5,9)=50 
ITABLE(6,9)=0 
ITABLE(7,9)=200 
ITABLE(8,9)=250 
ITABLE(9,9)=300 
ITABLE(1,10)=99 
ITABLE(2,10)=49 
ITABLE(3, 10)=99 
ITABLE(4, 10)=49 
ITABLE(5, 10)=99 
ITABLE(6, 10)=49 
ITABLE(7, 10)=249 
ITABLE(8, 10)=299 
ITABLE(9, 10)=349 
RETURN 


200 IERROR=0 
CALL TBSHUV 
Pee RHEE HES 
CALL TBLREDO 
CALE TBLSET 


eee Rr Ke KEK KEE 


CALL TBLWRT 
eeekekee kee ee tk 
ICHAR1=1 
ICHAR2=0 
ICHAR3=0 
IREAC2=0 
IVIRGi=1 
IVIRG2=NP 
DO 300 I=1,50 
TNODE(I)=0. 
300 OCHAR(I)=0. 
RETURN 
ENO 
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NQaAAaAANO 


SUBROUTINE TBSHUV IS CALLEO AFTER REAOING OATA ITEMS BUT PRIOR TO 
REAOING ANY TABLE OATA. ITS FUNCTION IS TO OQROP UNNECESSARY TABLES 
FROM STORAGE ANO TO OETERMINE WHICH VARIABLES ARE TO BE TABLE 
FUNCTIONS. 


SUBROUTINE TBSHUV 

DIMENSION IOUM(25) 

OIMENSION CP(50), YK(50),CPGAS(50),HV(50) 

COMMON/TABS/ TNOOE(50),0CHAR(50),ITABLE(9, 10), ITAB(9,6) 


1 » TABLES(500), ICHAR1, ICHAR2, ICHAR3, IREAC1, IREAC2 
2 . IVIRG1, IVIRG2, TREAO, TERROR, ITABNO, AINPUT(9),W(50) 
3 , ISTART, IENO,ANSWR(350) 


EQUIVALENCE (ANSWR(1),CP(1)), (ANSWR(51),YK(1)), (ANSWR(201),CPGAS(1 
1)), (ANSWR(251),HV(1)), (ANSWR( 301), HSUB) 
N=9 
ITABLE(1,5)=N+1 
Jet 
INO=0 
00 SO I=1,N 
IF(AINPUT(I).GT.-1000.) GO TO 20 
ITABLE(1,1)=-AINPUT(I) 
ITABLE(U,5)=I 
ITABLE(I+1,5)=N+1 
J=I+14 
INO=INO+14 
IOUM( INO )=-AINPUT(I) 
GO TO SO 

20 IF(I.GT.6) GO TO 22 
ITABLE(J,5)=I 
ITABLE(1I+1,5)=N+1 
J=I+1 

22 JI=ITABLE(I,9) 
J2=ITABLE(I, 10) 
DO 25 K=J1,uU2 

25 ANSWR(K)=AINPUT(I) 
ITABLE(I,1)=0 

50 CONTINUE 
IF(INO.E0.0 .OR. ITABNO.EO.0) GO TO 250 
J=ITABNO 
DO 200 K=1,uU 
00 100 I=1, INO 
IF (ITAB(K,1).E€0.IDUM(I)) GO TO 200 

100 CONTINUE 
IF(K.EO.JU) GO TO 160 
JLOC=ITAB(K,2)-1 
J1=ITAB(K+1,2) 
J2=I1TAB(U, 3) 
QO 120 J32Jd1,uU2 
JLOC=JLOC+1 

120 TABLES(JLOC)=TABLES(uJ3) 
JNO=ITAB(K,3)-ITAB(K,2)+1 
J2=K+4 
00 150 Ji=J2.uU 
ITAB(JU1-1,1)=ITAB(U1, 1) 
ITAB{(U1-1,2)=ITAB(JU1,2)-UNO 
ITAB(J1-1,3)=ITAB(JU1,3)-JUNO 
ITAB(U1-1,4)=ITAB( U1, 4) 
ITAB(JU1-1,5)=ITAB(J1,5) 

150 ITAB(J1-1,6)=ITAB(uU1,6) 

160 ITABNO=ITABNO- 1 

200 CONTINUE 
GO TO 300 

250 ITABNO=0 

300 RETURN 
ENO 
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THIS SUBROUTINE OETERMINES THE INITIAL TEMPERATURE OISTRIBUTION 
IN THE HEAT SHIELO STRUCTURE 
SUBROUTINE TEMPO 


COMMON /BACKUP/ XNPM(12),RHOBX(12),XBM(12),EMBB( 12), EMFB( 12) 


1 » NKPB(12),NCPB( 12), TXK(20,12),xXK(20, 12), TCP(20,12),NPM( 12) 
2 , CPX(20,12),GAPX( 12), FTEST( 12), BTEST(12),H(12),xXKB( 10, 12) 
3 , CPB(10,12),0xXB( 12) 

COMMON /TEMPS/ TEMOI(200),7TX1(50),7TX2(200), TX2T( 10, 12), TUL1(50) 
{ TUL2(50),TY(200), TEMPI,TXO,SURTEM 


COMMON /INOIX/ NP,NP2,IFPT,NPBS,NPF,NMB 
COMMON /FNTBCK/ FBLOW, EMV, EMC,H300, TEST2, TENV, OIN, HENV, FENV 
1 , OLOSS,OHC,HXX(12),HX(50), TW(50) 
COMMON /HSPARA/ OX, TL, VL,BL,OMP ,VPT 
X=0.0 
IF(TEST2) 300, 100,200 
100 00 150 L=1,NPF 
TX1(L)=TEMPI 
TX2(L)=TEMPI 
TUL (CL YETX ICL) 
TUEZCEV=ETX2ZCL) 
TEMOI(L)=TEMPI 
150 CONTINUE 
DO 160 I=1,NMB 
JN=NPM(I) 
DD 155 M=1,JN 
TX2T(M, 1 )}=TEMPI 
155 CONTINUE 
160 CONTINUE 
GO TO 320 
200 00 220 L=1,NP 
TEMOI(L)=TXO+( (TENV-TXO)/TL)**X 
TX1(L)=TEMOI(L) 
TXACL J =TKAC LE) 
TUL ICE =TXt1CL) 
TUL2(L)=TX1(L) 
X=X+0X 
220 CONTINUE 
L=NP+1 
OD 270 I=1,NMB 
KJ=NPM(I ) 
0O 250 J=1,KJ 
TEMOI(L )=TXO+#( (TENV-TXO)/TL)**X 
TXIC(LJ=TEMDI(L) 
TX2(L)=TEMDI(L) 
TX2T(JU,1I)=TEMDI(L) 
X=X+4+OXB(I1) 
L=L+1 
250 CONTINUE 
X=X+(GAPX(1)/12.0) 
270 CONTINUE 
GD TO 320 
AN ARBRITARY TEMPERATURE OISTRIBUTION CAN BE REAO IN FROM INPUT 
DATA IF TEST2 IS A NEGATIVE NUMBER 
300 WRITE(20,310) 
3910 FORMAT(1HO,79H THE VALUE OF TEST2 WAS NEGATIVE, SUBROUTINE TEMPD S 
1HOULO NOT HAVE BEEN CALLEO. ) 
ERR1=1.0 
320 RETURN 
ENO 
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Gas 


c*r* SOR 1S NOT USED 


C*** HORT IS THE VARIABLE BEING TESTED 


C*** 174 IS THE INOEX FLAG 


C**#* 
Grete 


aan 


64 


70 


107 
113 
115 


120 
123 


IREG IS THE ERROR FLAG 


SUBROUTINE TESTH(SOR,HORT,174,IREG) 


OIMENSION RANGE( 10) 


OATA (RANGE(J),J=1,10)/5.,10.,15.,28.,80.,150. ,400. ,.700.,1000., 


192000 4/ 
IF(HORT-1.)120,64,64 
IF (HORT -2000. )70,70, 120 


HORT IS GREATER THAN OR EQUAL TO 1., 


174=3 
OO 113 K=1,10 


IF (HORT-RANGE(K))115,115, 107 


I174=174+19 
CONTINUE 
IREG=2 

GO TO 123 
IREG=1 
RETURN 

ENO 
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BUT LESS THAN OR EQUAL TO 20 


OUTPUT FROM XPRTUTIL FOR RAS1810 === 


AT 08:18:48 ON 03/15/83 - RAS1810.STABII.FORT (TURF ) 


70 


SUBROUTINE TURF (QCON,VEL,ALT,NTRAPT ,QCONC,RTR,OMP , SHAPEF,ITHIN, 
1 TIN, TOUT, NTURBT, TIME ) 


COMMON /TRBATS/ PLA(300),TLA( 300) ,HLA( 300), VLA(300),TTA(300) 
COMMON /FACTRS/ AOT(300),FC(300),FR(300).FPLPT(300),SOVR1.PHI, 
1 FWxXx(300),WX1,WX2 

COMMON/TURBWT/ RENOLA(300),QTOLA( 300) 

OIMENSION OCON(300), VEL(300),ALT(300), OCONC(300),1T(25),V(25), 
{ ANSW(16),TIN( 10), TOUT( 10) 


DATA(T(1I),1=1,21)/100. ,900. , 1800. , 2700. ,3600. , 4500. ,5400. ,6300., 
17200. .8100. ,. 9000. ,9900. . 10800. . 11700... 12600: , 13500. 144007 15200] 
216200 2,17 100... 18000./ 

OATA(V(I),1=1,21)/7.63E-8,55.8E-8,86.8E-8, 110.8E-8, 129 .3E-8, 146. 
11E-8,161.2E-8,175. 16-8, 187.96-8. 199.96 -3,291. 6-8 22270 oe oe 
2242 .—-8.252.€-8.261.E-8.269.E-8.278.E-8,286 E-8 29408 deco ee, 


IK=0 

1EG=4 

00 650 I=1,NTRAPT 

RENOL=0. 

OTOVOL=1.0 

ZMAX=500000. 

ALTE=ALT(I) 

CALL ATMOS(ITHIN, ALTE, ZMAX, ANSW) 
REKKKKERE OE & 

PAMB=ANSW(9) 

TAMB =ANSW( 10) 
RHO=ANSW(11)*ANSW(13)/ANSW(5) 
MW=ANSW( 15) 

VISC=ANSW( 16) 

CALL FINOS(VEL(1)**2/847500.,1./ANSW(2),ANSW( 1), ANSW(3), 
1 .24*TAM8/33.86,PT2P,HT2RT,R2,V1,SOVR,IREG) 
exe kek EK & t 

HT2=HT2RT*33.86 

PT2=PT2P 

PL=FPLPT(1I)*PT2 

IF(PL.LT..001) PL=.001 

PLP=ALOG10(PL) 

CALL MOLH(PLP.SOVR.HLRT, IREG1) 

txkKeeR KEE K 

HL=HLRT*33.86 

CALL ALLMOL(SOVR,HLRT,ANS1,ANS2,ANS3, ANS4, IREG) 
ReEKEKEEK EEE 

RHOL =( 10. **ANS2)*.002498 

TL=1.8*ANS3 

VL=0. 

IF(HT2.LT.HL) GO TO 70 
VL=224.*(SORT(HT2-HL)) 

PLA(I)=PL 

TLA(I)=TL 

HLA(I )=HL 

VLA(I)=VL 

TTAC I )=TAMB*(1.+.2*(VEL(I)/ANSW(12))**2) 
IF(NTURBT.EO.0) GO TO 650 


270 


SS ee 


IF(ALT(I).GE.ZMAX.OR.VEL(I).LT.2000.) GO TO 830 
IF(HT2.LT.HL) GO TO 830 
CALL DISCOT(TL,TL,T.V.V,-20,21,0, RMUL ) 
EEE 
RENOL=VL*FWX(1I)*(RHOL/RMUL ) 
IF(RENOL.LT.RTR.OR.RENOL.GT.3.E6) GO TO 830 
81 QTOVOL=SHAPEF*RENOL**0.30103 
IF(IK.E0.1) GO TO 83 
IF(IBC.LE.10) GO TO 82 
WRITE(20,820) 
820 FORMAT(98H1 MORE THAN 10 TURBULENT TRAJECTORY ZONES. IF MORE ZONES 
1 ARE NEEDED, DIMENSION TIN AND TOUT HIGHER) 
STOP 
82 TIN(IBC)=TIME(I) 
IK=1 
GO TO 83 
830 IF(IK.NE.1) GO TO 83 
TOUT(IBC)=TIME(I) 
IBC=IBC+1 
IK=0 
83 QCON(I)=QCONC(I)*OTOVOL 
RENOLA(I )=RENOL 
OTOLA(I )=OQTOVOL 
650 CONTINUE 
RETURN 
END 


27h 


20 


30 


40 


SUBROUTINE UINTRP(X.XTBL.Y,YTBL.N.U) 
OIMENSION XTBL(50),YTBL(50) 

T=J 

IFC I.GT.N-OR-T-LU1.2) 1-2 
IF(XTBL(I-1).LE.X.ANO.X.LE.XTBL(I)) GO TO 40 
IF(xX.GT.XTBL(I)) GO TO 30 

1? Cam 

1F(1.GE.2) GO 7 1@ 16 

I=2 

GO TO 40 

T=I+1 

IFC). LEZN) G0) 1010 

I=N 
FRACT=(X-XTBL(I-1))/(XTBL(I)-XTBL(I-1)) 
V=YTBL(I-1)+(YTBL(I)-YTBL(I-1))*FRACT 
RETURN 

ENO 
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10 


fe) 
20 


23 


30 


SUBROUTINE UNS (IC,IA,IDX,1DZ,IMS) 
IF (IC) 5,5,10 

IMS=1 

NC=-IC 

GOTO 15 

IMS=0 

NG=I¢ 

IF (NC- 100) 20,25,25 
IA=0 

GOTO 30 

lA=1 

NC=NC- 100 

IDX=NC/ 10 
IDZ=NC-IDX*10 

RETURN 

END 
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